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THE ARGHMEDES 

You will find that this issue of BEEBUG contains the 
first of two articles devoted to the problems, questions 
and decisions facing any BBC micro owner who is 
contemplating making the change to an Archimedes. 
This is in direct response to letters which we have 
received from readers, some of which have appeared in 
our Postbag pages. We feel that this is an important 
subject which is likely to be of interest to many owners 
of BBC micros, and thus quite a legitimate topic for 
BEEBUG. 


It does not mean that we are in any way intending to 
dilute the future content of BEEBUG by catering for the 
Archimedes as well. Indeed, as we have said previously, 
the strength of BEEBUG must surely lie in the weight of 
support which it continues to provide for BBC micro 
owners, in sad contrast to many other magazines whose 
interest seems increasingly to focus more and more on 
the Archimedes. RISC User, BEEBUG's sister magazine, 
concentrates on that range. We hope, too, that in 
forthcoming issues we shall be able to provide much of 
interest in line with the results of the reader survey 
which we carried out last year. 


EDUCATIONAL SUPPORT 


One area where BBC micros continue to be used in 
large numbers is, of course, in education, and further 
evidence of that was forthcoming at the BETT exhibition 
in January where many educational computing 
companies had much to show that was relevant to the 
BBC micro. 


Over the last twelve months, we have also tried to help 
teachers and others by publishing a variety of programs 
which we hope will have found a good role both at school 
and in the home. Programs like Centres of Gravity, AC 
Circuits, Big Text Displays, Foreign Language Tester, 
Mathematical Transformations and others. And many of 
these programs have applications outside education as 
well. 
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АП of this is in addition to our bi-monthly BEEBUG 
Education which takes a broader look at the educational 
scene as it relates to BBC micros. 


We shall be continuing this theme through 1990, witness 
recent programs on Dichotomous Keys and Statistics, and 
would welcome any further contributions for this area of 
the magazine. 


OPEN DARE VERSUS SHOWS 


BEEBUG did not attend the BETT show referred to 
above. In the past we have attended many shows, 
particularly those which have been Acorn-specific. 
However, both last year and we believe this year, only a 
single Acorn-specific show, the BBC Acorn User Show, 
has been scheduled. Partly as a result, we have held two 
very successful open days on our own premises. We are 
now considering what our future policy towards shows 
should be, particularly with regard to the kind of 
presence which we should have (selling a wide range of 
computer products, demonstrating just our own 
software, etc.). We would be interested to hear the views 
of BEEBUG members on this issue. 


MEMBERSHIP CARDS 


Some members of BEEBUG have queried whether or not 
they have been sent the correct membership card. In 
fact, we use the same membership card for both 
BEEBUG and RISC User members. Confusion also arises 
because BEEBUG is both the name of this magazine, 
and the name of the organisation which publishes both 
magazines, and provides all membership services 
including retail, technical support, and our own software 
range. Membership cards show both the names BEEBUG 
and RISC User at the top, together with your name, 
membership number and expiry date (the last month of 
your current subscription). It is advisable to keep your 
card handy as it is essential to quote your membership 
number if asked when you deal with BEEBUG. Note that 
joint BEEBUG/RISC User members receive just one 
card. 
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MORE SHOWS FOR ACORN FANS 


Two more shows for users of Acorn computers have come 
to our attention. The First Alternative European 
Microcomputer Show will take place at Seeheim-Jugenheim 
near Darmstadt in West Germany on 28th April. The 
organisers promise that this will cater for Sinclair, Acorn, 
Cambridge Computers, Amstrad/Schneider and other 
“alternative” computer systems. For more information 
contact Stephan Michels or Dirk Schafer at Kasinostrasse 25, 
D-6100 Darmstadt, West Germany. 


Closer to home Acorn has announced the fifth annual 
computer networking conference to be held at the 
University of Keele from 9th to 11th July. The range of 
Acorn Networks ‘90, as the event is to be called, will be 
wider than that of previous events, and will address 
broader-based solutions for curriculum and administration 
and non-schools related applications, in addition to the 
usual focus on education, healthcare, special needs, 
business and government. For more information contact 
Sarah Scott at Acorn Computers Ltd, Fulbourn Road, 
Cherry Hinton, Cambridge, or tel. (0223) 245200. 


PANDERING TO MUSICAL TASTES 

After just 6 months in operation, the number of Panda 
music discs for Hybrid Technology's Music 5000 system 
has now reached a total of 13. The latest two discs, 
released in the new year, comprise Moments in Time by The 
Noige, whose work is well known from bulletin boards 
and is very much in the genre of Jean Michel Jarre. The 
13th disc consists of the complete Rendevez suite, made 
famous at the Jean Michel Jarre concert in Houston and 
shown worldwide on television. Tracks from two other 
Jarre pieces, Oxygene and Equinox are also included. All 
Panda discs cost £5.50 inc. VAT, p&p from Panda Discs, 
Four Seasons, Tinkers Lane, Brewood, Stafford ST19 9DE. 


IMPROVING YOUR MUSICAL OUTPUT 

Hybrid Technology, the doyen of the BBC micro music 
world, has released a further product in the form of the 
Music 5000 Synthesizer Universal at £99. This adds high 
quality stereo sound to any standard music software 
package that might otherwise rely entirely on the built-in 
sound system. It provides 16 synthesized instruments, with 
the ability to play up to 8 of these at once (including drums). 
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News News News News News News 


Excellent reproductions of natural instruments and 100% 
perfect tuning greatly improve the appeal and accuracy of 
any musical software, particularly appropriate in an 
educational environment. Fine tuning and transposition 
allow perfect harmony with classroom instruments, and 
stereo, ensemble and reverberation effects add a superb 
final touch for record-quality accompaniments to live 
performances. For more information contact Hybrid 
Technology, 273 The Science Park, Cambridge CB4 4WE, 
tel. (0223) 420360. 


GAMES FOR THE BBC MICRO 

Ever supportive of the BBC micro and its games market, 
software house Superior Software has announced two more 
releases, a single game The Last Ninja 2, and its latest compilation 
Play it Again Sam 12. Superior's policy of packaging collections 
of previously released games looks like catching up 
with itself in the near future. Play It Again Sam 12 contains 
The Last Ninja, claimed as the number one hit game of 1989, 
and the forerunner of The Last Ninja 2, the other release. 


The compilation disc also contains By Fair Means or Foul, a 
boxing simulation, Skirmish a jousting game, and Blagger a 
version of the classic Alligata game. Both releases are 
available on tape, 5.25" and 3.5” disc (£9.95, £11.95, and 
£14.95 respectively) covering the model B, Master 128, 
Master Compact and Electron (cassette only), and are 
reviewed in more detail elsewhere in this issue. Superior 
Software is at P.O.Box 6, Brigg, South Humberside DN20 9NH, 
tel. (0652) 57807. 


ESSENTIAL SOFTWARE FOR 512 USERS 


Essential Software, in which Robin Burton author of our 
512 Forum has an interest, has now released further utility 
discs for the 512. These comprise a general purpose mouse 
driver at £12.95, a screen print package which operates in 
40 column mode to give shaded screen dumps of four 
colour screens, or in 40 or 80 column mode to give a ‘full 
speed’ print of mainly text screens, costing £14.95, and a 
virtual screen system which prevents star commands from 
corrupting the DOS screen (£14.95). з; 


All prices include VAT, p&p. All items, and further 
information on these and forthcoming products, are 
available from Essential Software, P.O.Box 5, Groby, 
Leicestershire LE6 0ZB. 


5 


Upgrading to an Archimedes 


Mike Williams investigates the advantages and disadvantages of this major step 
in this two-part article. 


_ Several BEEBUG readers have written in 


recently seeking advice which might help them 
decide whether upgrading a BBC model B or 
Master 128 to an Archimedes is worthwhile. 
Many users of such machines have often made 
a substantial investment in their system, and 
are loath to throw that away. However, an 
Archimedes in any form, 
and that includes the 
A3000, is such a very 
significant advance over 
the older systems that the 
cost may well be justified. 


Standard Memory 


In this article we will be 
looking at what is 
involved, and with the 
help of two actual case 
studies, looking in some 
detail at what may be 
gained and what is lost. 
At the end, though, you 
have to make the decision 
on whether to upgrade 
based on your own 
priorities. We can help by clarifying possible 
areas of concern, and providing as much 
information as possible. 


Floppy Disc 
Hard Disc 

Serial Interface 
Cost ex. monitor 


Cost inc. monitor 


We shall start by summarising the main 
characteristics of the Archimedes, emphasizing 
those points where the Archimedes is 
distinctively different. We will then look at the 
compatibility between the Archimedes and 
older BBC micros, and the problems of 
attempting to transfer software. Lastly we will 
consider two actual case studies to highlight the 
potential advantages and disadvantages. 


THE ARCHIMEDES RANGE 

Let’s be quite clear about one fact from the 
outset. Despite their obvious visual differences 
the A3000 and the Archimedes 400/1 range are 
all part of the same family, using the same RISC 
chip set and using the same operating system 
(RISC OS) and other software. In what follows, 
my remarks apply equally to all machines 
unless any differences are highlighted. The 
A3000 and 400/1 series represent the current 
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Maximum Acorn Memory 1Mbyte 
Maximum Other Memory 4Mbytes 


models of the Archimedes, but owners of the 
BBC micro and Master series contemplating 
upgrading may well wish to consider one of the 
earlier A310 models (it is not worth considering 
an A305 machine with just 0.5Mbytes of 
memory unless it has been upgraded to 1Mbyte 
in which case it is effectively an A310). 


A440/1 


A310 A3000 A410/1 A420/1 


1Mbyte — 1Mbyte 


2Mbytes 


1Mbyte 
4Mbytes 
4Mbytes — 4Mbytes 
800K 800K 800K 800K 800K 

Int. Ext. Int. 20Mbytes 50Mbytes 
Yes Opt. Yes Yes Yes 
£640.00 £746.35 £1378.85  £1953.85  £2873.85 
Ы £963.70 £1596.20  £2171.20 £3091.20 


2Mbytes 
4Mbytes 
4Mbytes 


4Mbytes 
4Mbytes 
4Mbytes 


* A new colour monitor costs £217.35 ` 


Table.1 Configuration and price of Archimedes models 


The basic configurations of the different models 
are shown in table 1 (all prices include VAT). 
Although 4Mbytes of memory has been the 
maximum memory for any Archimedes until 
recently, 8Mbyte upgrades are now beginning 
to appear (Watford Electronics). The costs 
shown are for a basic system, with or without 
colour monitor, without any additions or 
upgrades. The price shown for an A310 is that 
for a secondhand machine as supplied by 
BEEBUG with 3 month's warranty. New A310s 
are also still available at prices from £1102.85. 
However, there are certain differences between 
the A310 and the 400/1 series which might not 
permit the older machine to benefit from all 
future upgrades. 


The RISC chip set is the heart of any 
Archimedes comprising MEMC (memory 
controller), VIDC (video controller), IOC 
(input/output controller) and the ARM 
processor. The A3000 and 400/1 series employ 
a newer version of MEMC (version 1A) which 
is about 12% faster than that in the 300 series. If 


Beebug March 1990 


Upgrading to an Archimedes 


you are planning to buy a secondhand A310 
you may wish to upgrade MEMC (which must 
be done by a dealer) at a cost of £75.38. 


DISC DRIVES 

All models are supplied with a single 3.5” 
internal floppy disc drive. The 420/1 and 440/1 
also have a hard disc drive already fitted. The 
410/1 has a built-in interface making an 
internal hard disc an easy upgrade. An internal 
hard disc may also be added to an A310, but an 
interface must be fitted at the same time, and a 
backplane (see under Interfaces for more on 
this). Alternatively, you can add a second 3.5” 
internal floppy drive to an A310 or A410. 


The Archimedes series 


Another route for hard disc drives is to fit a so- 
called SCSI interface. This permits faster and 
much larger capacity drives to be connected 
(170Mbytes for example), but these will 
normally be external to the Archimedes. 
Smaller capacity SCSI drives can also be fitted 
internally, except on an A3000 where the size of 
the casing means all hard discs must be 
connected externally. 


MEMORY 

Memory is the area which often causes the 
greatest concern. A 1Mbyte Archimedes will 
allow all current software to run, but in some 
cases may quite severely limit what can be 
achieved (e.g. the size of document to be 
handled by a word processor), and reduces the 
opportunity for multi-tasking (the facility to 
have several applications in operation at the 
same time). However, it all depends very much 
on what you want to do, and many owners are 
entirely satisfied with a IMbyte machine. 
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Potential users who are likely to make heavy 
demands on their machine should consider 
2Mbytes, either from the outset, or as a future 
upgrade. Some models can only be enhanced to 
4Mbytes of memory by installing non-Acorn 
(Watford Electronics, СЕ Micros, 
Computerware etc.) memory upgrades. АП of 
these are better fitted by a dealer, and with 
some it is essential. You should also consider 
carefully the effect of any such third-party 
upgrade on the warranty offered by Acorn. 
However, those aspiring to a machine such as a 
440/1, but with limited finance, may find that a 
secondhand A310 upgraded with SCSI or ST506 
hard disc and 4Mbytes of memory may prove a 
cheaper option, provided any problems 
associated with non-Acorn upgrades can be 
accommodated. Alternatively, the 410/1 and 
420/1 can both be readily upgraded to near 
440/1 specification. 


INTERFACES 

All Archimedes come with a printer port, an 
RGB analogue port for connection to a suitable 
monitor, a monochrome video output and a 
miniature stereo jack socket. All systems, except 
the A3000, also have a serial port fitted as 
standard (a 9-pin D-type socket). For the A3000 
about £20 buys the two extra chips needed (the 
socket itself is fitted as standard). 


АП other forms of interface are extra and on the 
A310 and 400/1 series involve the use of a 
backplane (an optional extra on the A310). This 
fits vertically across the width of the 
Archimedes, and interface cards, or podules as 
they are often called, are fitted at the back of the 
Archimedes, automatically slotting into the 
backplane. Typical interfaces include the I/O 
podule which provides a BBC style user port, 
analogue port and 1MHz bus (there is also an 
optional MIDI interface which can be added), 
MIDI podule, SCSI interface, and various 
podules for scanners and video digitisers. There 
is also a ROM podule providing a ROM filing 
system, though this feature appears not to be 
popular with Archimedes owners. 


The position with the A3000 is distinctively 
different when it comes to interfacing. In 
principle all is the same, but the physical shape 
and size of the A3000 means that the same 
podules as used with other models in the 
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Archimedes range will not fit the A3000, at least 
not directly. The A3000 offers two alternatives. 
There is a built-in mini-podule interface. At 
present a user port and MIDI podule 
(combined), and SCSI interface are available. 
. There is also an edge connector at the rear of 
the A3000 which offers the possibility of 
connecting an interface box in which standard 
Archimedes podules could be fitted. At present 
only one such box appears 
to be available (from 
Oak Computers), but 
specifically for connecting a 
SCSI interface. Other 
interfaces for the A3000 are 
likely to appear in time. 


THE ARCHIMEDES 
IN OPERATION 

Any BBC user faced with 
an Archimedes for the first 
time is in for something of 
a shock. When you switch 
on there is no longer the 
customary blank screen 
with its simple message in 
the top left-hand corner. 
Instead you are faced with 
the much vaunted Desktop. 
Initially this consists of a 
uniformly grey screen with 
a bar (called the icon bar) 
running across the foot of the screen. To the left 
of the icon bar will be icons representing the 
disc drives currently installed. To the right are 
two other icons, the palette and the task 
manager. This is not the place to provide a 
detailed description of the Desktop and its 
associated functions, but a few additional 
words are merited. 


Every Archimedes has a mouse as standard, 
and this is the device which you rapidly 
become accustomed to for controlling many of 
the machine's functions. The Desktop uses 
windows and icons (in full colour) to show 
what is happening at all times. Click on a drive 
icon and a window opens to show icons 
representing the files and directories (the 
Archimedes uses only the ADFS) on that disc. 
Further clicking can reveal menus allowing 
copying, deleting, renaming of files, etc. 
Clicking on programs causes these to be run. 
АП of this is controlled by the Wimp manager, a 
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very major part of RISC OS. However daunting 
this may sound, or seem, at the outset, even the 
most experienced of Beeb users will rapidly 
find themselves adapting to the new ways, 
because they are the easiest and most efficient 
way of controlling the machine. 


If you long for the friendly world of your BBC 
micro it is still there, but hidden underneath the 
Desktop. Quitting the 
Desktop can put you into 
Basic, the same familiar 
BBC Basic but with 
significant enhancements, 
and the world of star 
commands. Most things 
that you could do on a BBC 
micro can still be done in 
the same way on the Arc, 
but there are so many new 
things to learn as well. 
Again, the wealth of new 
functions and features can 
be off-putting initially until 
you get more used to them. 


MEMORY USAGE 
Even the Master 128 has a 
maximum of only 128K of 
memory compared to the 
1Mbyte ог more of the 
Archimedes. The contrast is 
even greater when you bear in mind that even 
on a Master, only 32K of memory exists as 
normal RAM, and even part of that is used by 
the operating system as work space; another 
32K exists as shadow RAM and private RAM, 
and then there is sideways RAM/ROM as well. 
The position on the model B is even more dire, 
though many owners have fitted sideways and 
shadow RAM to enhance their systems. For 
comparison with the Archimedes one should 
consider all Beebs as 32K machines. 


As a result of the limited memory available, 
much of the software developed for the BBC 
micro has been in ROM to avoid reducing even 
further user memory. Think how limited word 
processing would be if View or Interword used 
16K of user RAM. 


The situation on the Archimedes is quite 


different. Switch the machine on, and even in a 
1Mbyte machine you have immediately got 


Beebug March 1990 


some 750K of user RAM available. Think of the 
size of Basic program you could develop! 
Because of this (apparent) abundance of 
memory, there are no such features at all as 
shadow RAM, sideways RAM or whatever. All 
memory usage shares the same main memory 
(workspace, screen memory, relocatable 
modules - a bit like the old ROMs - and more). 
As a result, memory is not divided up on a 
fixed basis, but allocated dynamically as 
required. Thus your Basic program may well 
not always run in the same area of RAM - so no 
more peeks and pokes! 


Any major piece of Archimedes software will 
normally exist as an application, the rough 
equivalent of the old ROM-based approach. 
Once installed, applications are allocated part 
of memory, and appear visibly as icons on the 
icon bar. Given sufficient memory, and you 
would be surprised how quickly even 1Mbyte 
can be used up, several applications can exist in 
memory together, each associated with one or 
more windows concurrently on the screen. This 
makes it very easy to switch from one to 
another. Indeed the integration of software 
applications is a major feature of the Archimedes. 


For example, you may create data in a 
spreadsheet application, export part of the data 
into a graph package, transferring the the 
result to a drawing package for embellishment 
before incorporating the graph as an 
illustration on the page of your current word 
processed document - and it really can be as 
simple as it sounds, well nearly. 


COMPATIBILITY 

One of the issues that confronts anyone 
contemplating upgrading to an Archimedes is 
that of compatibility. How much of what you 
have, both hardware and software, can be used 
on an Archimedes. I hope, if I have explained 
things clearly enough, you will already be able to 
answer some of these questions for yourself now. 


HARDWARE 

Let's take hardware first. The Archimedes uses 
3.5" discs and the ADFS. Whatever you are used 
to, this is what you will be using in the future. 
You are most likely to be using 5.25" discs with 
your Beeb, and most users still use the DFS. 
What you will probably want to do is to transfer 
the contents of your 5.25" discs to 3.5" discs on 
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the Archimedes, but don't waste time and effort 
on things you will no longer need or use. 


There are two ways of doing this. If you are 
able to keep your BBC system for a short while, 
purchase of a serial link kit from BEEBUG (cost 
£17.25) allows the two machines to be 
connected together via their serial ports (and 
this applies to the A3000 as well if the serial 
interface chips have been fitted). Files can then 
be transferred from one system's discs to the 
other's (including transfer from DFS to ADFS). 


lEdit "Fonts 


File 'ReadMe" $ 


Select all 
Clear selection 
Options 

New directory 
Open parent 
Count 


Alternatively, a disc buffer can be purchased 
(available also for the A3000 very soon) at a cost 
of £33.25 allowing your existing 5.25” drive to be 
connected to the Archimedes. If you were 
previously using the DFS system you will need 
to purchase the BEEBUG DFS Reader (cost £9.90) 
for the Arc, to read discs in that format (ArcDFS 
from Dabs Press is another more recently 
available solution). Continuing to use an existing 
5.25” drive can be a cheap way of providing 
additional disc storage for an Archimedes, and 
maintains compatibility with fellow Beeb users. 


Any printer which you have been using will 
more than likely work just as well with the 
Archimedes (but do check with the supplier of 
the Archimedes, or check with BEEBUG’s 
Technical Department), but you will need to 
obtain a new connecting cable as the 
Archimedes uses a 25 pin D-type connector. 


On the other hand, any existing colour monitor 
is unlikely to be suitable. The Archimedes uses 


Continued on page 22 
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Keyword Highlighter 


Andrew Rowland presents a utility to help you keep up with the MacJoneses! 


If you have seen advertisements for BBC Basic on 
the Apple Macintosh, you may have been impressed 
by the way listings are displayed. Keywords are 
shown in a bold font, variables etc. in a lighter 
one. Not to be outdone, I immediately began to 
think of a way to achieve this on the BBC itself. 


The utility presented here was the outcome. In 
modes 0 - 6 it lists Basic programs with 
keywords and REMs in the normal font and 
everything else in a light font, while giving you 
the same degree of control as with the normal 
LIST command. This is not just for the sake of 
emulating the BBC's more up-market cousin; it 
makes a program far more readable, particularly 
if there are few spaces in it, or if capital letters 
have been used for variables. 


Type in the listing and save it before running. The 
machine code generated by the program uses less 
than one page of memory, starting at &А00, 
although this address may be altered to suit your 
particular requirements by amending line 120. 


Running the program installs a “ІЛМЕ command 
which takes exactly the same parameters as LIST 
- that is, it can be used on its own or with the line 
numbers to be listed, and on a Master it even 
responds correctly to *LINE IF, in the same way 
as LIST IF (but note that the space after *LINE 
must be included). Lines can be copied using the 
cursor keys in the normal way. As a bonus, if you 
have a printer that prints italics for the codes 160 
- 255, a similar effect can be obtained on paper. 
You may need to alter some DIP switches to get 
italic instead of graphic characters. 


If you find that the routine interferes with some 
programs that use function keys, or cursor keys 
with Ctrl, press Break before using the program 
concerned, and do not run that program a second 
time without pressing Break again in between. 


HOW IT WORKS 

The first job is to create the light font, which is 
done by PROCfont. This creates a thin version of 
each character from ASCII 32 to 126, but with an 
ASCII code 128 higher, i.e. from 160 to 254. On a 
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model B, this would normally require PAGE to 
be reset to a higher value, thus losing memory. 
However, assuming that PAGE is set at &1900 as 
is normal for a disc-based machine, we can rob 
the DFS of some of its workspace, and use &1300 
to &15FF for the character definitions. This does 
mean, however, that no more than one file can be 
open at once and PAGE may be set no lower 
than &1600. The user definable characters 129 to 
159 are left free for your programs. 


EF PROCIis 


LOR’ : COLOUR 28 
ТО n:PRINTTRBCCH , 9*1) ; nenus(1 


NEXT I:ENDPROC 


v$) ‘REPEAT :G=GET:UNTIL INSTR(vS,CHR$G)8 OR v$z"" OR INSTR(cS 


p$;SPC C142 


oSzLEFT$CoS, LENoS- 1) :PRINTTAB( x#LEWoS+1, y) ;CHRS1 


PRINTCHR$G 


OLOUR | : COLOUR 128 : PRINTTRB(x-I 


A program listing showing the effect of the 
Keyword Highlighter 


Next, we need to find a way of switching from 
the normal font to our new one at the right 
moment, without writing a large amount of code. 


You are probably aware that Basic stores 
keywords as a single byte code, known as a 
token, which has a value greater than 127. As 
LIST displays your program on the screen, it 
prints the letters of variables and procedure 
names normally, but expands each token into 
the appropriate keyword. While it is doing this, 
it stores the value it is working on - either a 
normal letter or a token - at location &37. It is 
easy to intercept the routine which writes 
characters on the screen (OSWRCH) by 
changing the vector situated at &20E. A quick 
look at &37 will tell us whether a normal letter 
or part of a keyword expansion is being printed. 
PROCmc is responsible for doing this. The 
OSWRCH vector is diverted via vduentry (line 
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1690), and then continues by jumping to the 
original contents of the vector. This enables some 
additional code of our own to be executed before 
the OS carries out its normal routine. Line 1800 
takes a look at &37. If it contains a number above 
127, a jump to exit is executed, which prints the 
character normally. Otherwise, the character has 
128 added to it (by setting the top bit in line 1870) 
so that it will be printed in the new light font. 


There is, however, one exception to this. The 
contents of strings between quotation marks 
must be printed normally: the string may contain 
user defined characters or teletext control codes 
which should not be interpreted as keywords. In 
this case, the contents of &37 are not valid, and so 
whenever a quotation mark is detected, &37 is set 
to zero to ensure the whole of the string is 
printed in the light font (lines 1750 - 1770). 


The Master treats REM lines in a similar way to 
characters between speech marks, but the 
model B treats them as normal lines (which is 
why teletext colour codes appear as keywords 
on listing). We want to ensure REMs stand out, 
so we set a flag, remflag, whenever &37 is found 
to contain the token for REM (line 1830). This 
stays set until a carriage return marking the end 
of the line is printed (lines 1710 - 1740), and 
until then everything is printed normally. 


Our next task is to implement a star command to 
perform the listing - we hardly want the routine 
to be active all the time as it would play havoc 
with normal output. The most convenient 
method to use is *LINE, which is provided by the 
operating system specifically to run a resident 
machine code routine, and so the OS does all the 
hard work. Lines 1380 to 1670 implement the 
*LINE command, which first diverts the 
OSWRCH vector to vduentry, then uses the 
equivalent of *FX138,0,n to poke “LIST” into the 
keyboard buffer, followed by any parameter you 
typed after the *LINE. In order to keep the 
appearance neat, it turns off screen output while 
it does this: omit line 1450 to see it happening. 


Next, of course, the routine must turn itself off at 
the right time by resetting the OSWRCH vector 
to its old contents. Line 1630 ensures that a zero is 
poked into the keyboard buffer, which is detected 
at line 1700 when the listing is finished. But it 
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isn’t that simple. What if you press Escape before 
the listing ends? The routine would be left active, 
and the same would happen if you typed a 
parameter containing an error. To deal with this 
eventuality, the break vector BRKV, which 
handles all errors, is diverted to break (line 2010) 
which restores the OSRWCH vector before 
passing control to Basic's error handler. 


One last problem must be solved. If you were 
simply to use cursor editing to copy lines 
displayed by the routine, the program would be 
corrupted: all your variables would be replaced 
by codes above 127 and interpreted as tokens. To 
make the program watertight we must intercept 
another vector, this time the OSRDCH vector, 
RDCHY, which is responsible for handling cursor 
copying. A short piece of code at entry (line 1940) 
checks to see if the code returned by OSRDCH is 
160 or above, and if so, subtracts 128 from it by 
resetting the top bit to zero. 


Finally, line 110 provides you with a Macintosh- 
like paper-white screen. If you prefer the BBC's 
good old white on black you can omit this line. 


10 REM Program .>KEYh1t 

20 REM Version 1.00 

30 REM Author Andrew Rowland 

40 REM BEEBUG December 1989 

50 REM Program subject to copyright 

60 : 

100 VDU 14 

110 VDU 19,0,7;0;0;19,1,0;0; 

120 MC$-&A00 

130 PROCfont 

140 PROCmc 

150 PRINT'"Syntax: *LINE n,n (as LIST) 
"'"Ready" 

160 END 

БИ» 
1000 DEF PROCfont 
1010 IF NOT FNmaster PROCfontflags 
1020 FOR pass=0 TO 1 
1030 Р%-МС% 
1040 [OPT pass*2 
1050 LDA #32:STA &80 
1060 .loop 
1070 JSR thin 
1080 INC &80:LDA &80 
1090 CMP #127:BNE loop 
1100 RTS 
1110 .thin 
1120 LDX #&80:LDY #0:LDA #10 
1130 JSR &FFF1:LDX #8 
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1140 .tloop 
1150 LDA &80,X:LSR &80,X 

1160 AND &80,X:STA &80,X 

1170 DEX:BNE tloop 

1180 LDA #23:JSR &FFEE 

1190 LDA &80:ORA #&80 

1200 JSR &FFEE:LDX #0 

1210 .loop2 

1220 INX:LDA &80,X:JSR &FFEE 
1230 CPX #8:BNE loop2 

1240 RTS 

1250 ]NEXT 

1260 CALL MC$ 

1270 ENDPROC 

1280 : 

1290 DEF PROCmc 

1300 oswrch-&FFEE:osbyte-&FFF4 
1310 quote-34:rem-&F4 

1320 wrchv-&20E:brkv-&202 

1330 rdchv-&210:userv-&200 
1340 FOR pass = 0 TO 1 

1350 P$-MC$ 

1360 [OPT pass*2 

1370 .userentry 

1380 CMP #1 V is it *LINE? 
1390 BEQ lineok 

1400 JMP !userv 

1410 .lineok 

1420 STX &72:STY &73:\ set VDU vector 


1430 LDA #vduentry MOD &100 
1440 STA wrchv 

1450 LDA #vduentry DIV &100 
1460 STA wrchv+1:\ turn off screen 
1470 LDA #21:JSR oswrch 

1480 \ flush keyboard buffer 
1490 LDA #21:LDX #0:JSR osbyte 
1500 \ poke "L." in k/b buffer 
1510 LDA #ASC"L":JSR poke 

1520 LDA #ASC".":JSR poke 

1530 \ poke string following 
1540 \ *LINE into k/b 

1550 LDY #0 

1560 .strlp 

1570 LDA (&72),Y 

1580 CMP #13:BNE strov 

1590 LDA #6:JSR poke:LDA #13 
1600 .strov 

1610 JSR poke 

1620 INY:CMP #&0D:BNE strlp 
1630 \ poke zero to 

1640 \ reset VDU vec 

1650 LDA #0 

1660 .poke 

1670 PHA:STY temp: TAY 

1680 LDA #138:LDX #0:JSR osbyte 
1690 LDY temp:PLA 

1700 RTS 

1710 .vduentry 


STX temp: TAX 
CMP #0:BEQ end 

CMP #32:BCS nctrl 

LDA #0:STA remflag:JMP exit 
-netrl 

CMP #quote 

BNE over 

LDA #0:STA &37 

.over. 

LDA remflag:BNE exit 
LDA &37 

CMP #rem:BNE notrem 
INC remflag 

.notrem 

CMP #128:BCS exit 
TXA:ORA #&80:TAX 

.exit 

TXA:LDX temp 

JMP (store) 

.end 

JMP unhook 

.entry 

JSR !rdchv 

PHP:CMP #128+32:BCC ok 


JSR unhook 

JMP !brkv 

.unhook 

PHA:LDA store 

STA wrchv 

LDA віоге%1:5ТА wrchv+1 
PLA:RTS 

. temp 

EQUB 0 

.remflag 

EQUB 0 

.Store 

EQUW !wrchv 

]NEXT 

?userv-userentry MOD &100 
userv?l-userentry DIV &100 
?rdchv-entry MOD &100 
rdchv?l=entry DIV &100 
?brkv-break MOD &100 
brkv?l-break DIV &100 
ENDPROC 


DEFFNmaster 
-INKEY-256-253 OR INKEY-256-245 


DEF PROCfontflags 

A$-131:*FX 20,3 

В%= (USR (&FFF4) AND&FFFF00) /256 

IF PAGE<B%:PAGE=B%: CHAIN"KeyH1t" 
ENDPROC 
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Order Out Of Chaos 


Jim Vernon explains how to investigate the world of chaos using a BBC micro. 


‘Ordered’ chaos has recently become a subject 
of fascination for mathematicians, and of 
practical value in many highly diverse fields, 
from turbulence in flow along pipes to chemical 
reactions and weather forecasting. It has links 
with fractals, the Mandelbrot set and Julia sets. 
The three programs in this article give an 
introduction to the subject, and can be readily 
expanded for more complex work. 


ITERATION 

The basis of this whole field of mathematics is 
iterative calculation, of which an early example 
was Newton's method for successive approximation 
to the roots of an equation. In its broadest terms 
the one-dimensional formulation is: 

X(n+1) = £(X(n)) 

where n is 1,2,3,4 up to any number, usually large, 
and f(X(n)) is any function of X(n). Each 
approximation is calculated from the previous 
one, with the calculated values converging to a 
result. Note that X(n+1) is sometimes written X 
subscript n+1, but this can lead to confusion with 
Xn+1. X(2) is calculated from X(2)=f(X(1)), 
X(3)=f(X(2)) and so on, the previous value of X(n) 
being inserted in the function to get the new value. 


The computer is ideally suited to iterative 
calculations. In Basic the formula becomes: 
X-f (X) , 

for any function f since, when this line is acted 
upon, X acquires the value of the function using 
the previous value of X for the calculation, so 
that if X(n) is the old value of X the new value 
is X(n+1). Repeated ‘n’ times, by means of a 
FOR-NEXT or REPEAT-UNTIL loop, without 
any need to change the statement of the 
function, the iterative value of X(n) can be 
calculated up to any value of n. 


For the purposes of this article the function 
used will mainly be: 

f (X) 4c.X. (1-X) 
where “с” is a constant in the range 0 to 1. To 
avoid confusion “” is used to stand for multiply. 
In terms of the calculation of X(n+1) from X(n), 
the formula can be written: 

Х(п+1) = 4c.X(n). (1-X(n)) 
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The starting value of X, (X(1)), must be between 
0 and 1, and c also below 1. This function, 
known as the logistic difference equation, arises in 
population studies, where X(1) can represent 
the population at, say, year one, X(2) the 
population at year two and so on. c is some 
constant, determined by the environment, and 
not affected by population size, which 
represents the rate of growth. Iterated over a 
number of years, the formula shows how the 
population can rise and fall with time, other 
things remaining equal. 


Listing 1 - the program CHAOSI - is a 
straightforward simple iteration of this formula. It 
progressively calculates the value of X(n) as n 
increases, using any specified value of c (C), and 
with any chosen initial value of X (IX). Provision 
is made for the screen display to start after any 
particular value of n (Т%) has been reached, thus 
making it easier to examine the value of X(n) for 
high values of n. The formula to be used is placed 
in an FN function (line 1020). The iteration is 
based in this case on a REPEAT-UNTIL loop (lines 
210-280), and any key press will give the value of 
the next iteration. The process can be stopped at 
any value of n by pressing Escape. 


Listing 1 


10 REM Program CHAOS1 
20 REM Version В1.2 
30 REM Author Jim Vernon 
40 REM BEEBUG March 1990 
50 REM Program subject to copyright 
60 : 

100 ON ERROR:PROCerror:END 

110 MODE3 

120 PRINT''" 

) "Ó 
130 PRINT''"Equation is iterated up to- 

any desired value of n." 

140 PRINT'"Any initial number of itera 
tions can be skipped before printing sta 
РЕБ 

150 PRINT'"From then on press апу key 
for next iteration." 

160 INPUT'' "Value of constant c (<1) 

mc 2 

170 INPUT"Initial value of X (<1)",IX 


X(n+1)=4*C*X(n)*(1-X(n) 
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180 INPUT "No. of initial iterations n 
ot to be printed ",T% 

190 PRINT'"PRESS ANY KEY FOR A NEW CAL 
CULATION OF X(n)" 

200 N$-0 :X-IX 

210 REPEAT 

220 REM 1st. T$ iterations not printed 

230 IF N%>T% THEN Y-GET:PRINT"n = ";N$ 
;" Х(п) LL аж" 

260 N$-N$41 

270 X-FNformula (X) 

280 UNTIL FALSE 

290 END 

1000 : 

1010 REM Reiteration equation 

1020 DEF FNformula(Z)-4*C*Z* (1-2) 

1030 : 

1040 DEF PROCerror 

1050 VDU7:REPORT:PRINT" at line ";ERL 
1060 ENDPROC 


Using this program it will be found that if c is 
less than 0.25, iteration rapidly reduces X(n) to a 
very small value. If c is between 0.25 and 0.75, 
as n increases X(n) approaches a limiting value, 
given by the formula 1-1/4c, whatever the 
starting value of X. As c is increased beyond 
0.75 X(n) does not settle down to a single value. 
At values just in excess of 0.75 it has 2 values, 
alternating between them, then, at progressively 
higher values, it cycles through 4, 8, 16 and so 
on. c has to be increased by only small amounts 
to get these results, and preferably a large 
starting number for n specified. When c reaches 
0.8925, X(n) becomes chaotic, with a wide range 
of apparently random values. 


Progress towards the limiting value for X(n), 
when it occurs, is illustrated graphically by listing 
2 - program СНАО52. In this, up to 3 starting 
values of X between 0 and 1 can be specified with 
any one value of c in the range 0 to 1. The number 
of iterations can also be varied, the larger the 
number the more certain it is that the limiting 
value will be reached, but the less clear are any 
early fluctuations. After input of the start values 
(lines 180-240), axes are drawn, with the value of 
n along the bottom and X(n) vertically (lines 280- 
310). To the left of the diagram, the limit value of 
X(n), calculated by the formula 1-1/4c, is drawn 
(lines 330-360). The iterations are calculated and 
plotted by the procedure in line 430, the formula 
again being defined in a function. 
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REM Program CHAOS2 

REM Version B1.2 

REM Author Jim Vernon 

REM BEEBUG March 1990 

REM Program subject to copyright 


ON ERROR:MODE7 : PROCerror:END 
MODE1 
PRINT'" X(n+1)=4*C*X(n) * (1-X(n))" 
130 PRINT'"This program graphs the val 
ue of X(n)"'"against the number of itera 
tions (n)."'"Opportunity is provided to 
use up to"'"3 different start values of 
x 
140 PRINT'"It also shows the limit val 
ue of X(n)"'"for large n." 
150 PRINT'"c can be varied to show the 
effects on"'"the limit value of X. High 
er values"'"of c above 0.75 show the inc 
rease in"'"number of X's limits." 
160 DIM IX(3) :DIMK (3) 
170 REM Input constants, start value(s 
etc. 
180 INPUT'"Value of constant c",C 
190 INPUT"Number of iterations to be s 
hown",D 
200 INPUT"Number of graphs(1 to 3)",G% 
210 FOR N$ -1 TO G$ 
220 PRINT"Graph ";N$;: INPUT "-Start v 
alue of X",IX(N$) 
230 NEXT 
240 INPUT"Name of File",A$ 
250 CLS 
260 REM Graph title, axes (with 10 div 
isions) and ranges 
270 PRINT TAB(15,1);A$ 
280 PROCaxis (300,150,300, 950) 
290 FOR 0%-1 TO 10: PROCaxis (300,150+0 
%%80,310,15040%%80) :NEXT 
300 PROCaxis (300,150,1100,150) 
310 FOR 0%=1 TO 10: PROCaxis (300+0%*80 
,150,30040$*80,160) :NEXT 
320 REM Graph of limit value 
330 XLIM-1-1/ (4*C) 
340 PRINTTAB (0,5) "X(LIM)" 
350 МОУЕ0, XLIM*800+150: DRAW150,XLIM* 
8004150 
360 PROCaxis (200,100,200, 950) 
370 REM Insert ranges of values 
380 PRINTTAB (18,22) "Value of C=";C 
390 PRINTTAB (8,2) ; "1" :PRINTTAB (7,15) "X 
(n) ":PRINTTAB (8,27) ; "0" 
400 PRINTTAB (9,28) ; "1" : PRINTTAB (17,28) 
"Iterations (n) ":PRINTTAB (34,28) ;D 
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410 REM Calculate X(n) for each n and 
graph values 

420 FOR N%=1 TO G% :K(N%)=N% 

430 PROCgraph (ІХ (№) ,K (N$) ) 

440 REM Delay to allow first graph to 
be viewed 

450 FOR Q%=1 TO 5000:NEXT 

460 REM Repeat for graphs 2 and 3 

470 NEXT 

480 OSCLI("SAVE "+А$+" 3000 8000") 

490 END 

1000 : 

1010 REM FN defines formula for reitera 
tion 

1020 DEF FNformula (7) =4*С*7* (1-7) 

1030 : 

1040 DEF PROCgraph(XP,K) 

1050 GCOL 0,К 

1060 REM XP is start value of X, К dete 
rmines colour 

1070 MOVE 300, XP*800+150 

1080 X-XP 

1090 FOR M-1 TO D 

1100 X=FNformula (X) 

1110 Y-(X)*8004150 

1120 R-M *800/D+300 

1130 DRAW R,Y 

1140 NEXT 

1150 ENDPROC 

1160 : 

1170 DEF PROCaxis (A%,B%,G%,H%) 

1180 MOVE A%,B% 

1190 DRAW G%,H% 

1200 ENDPROC 

1210: 

1220 DEF PROCerror 

1230 VDU7:REPORT:PRINT" at line ";ERL 
1240 ENDPROC 


Running the program with 3 values of X, it 
can be seen that whatever the start value of X 
the graph eventually reaches the same limit, 
for any fixed value of c between 0.25 and 
0.75. Figure 1 is a typical example. Beyond 
c-0.75, using only one start value of X, the 
graphs show how X(n) moves between a 
number of values - 4 in the case of figure 2. 
However, listing 3 - program CHAOSS - gives 
a clearer picture of what is happening as c 
increases, by graphing X(n) directly against 
values of c. 


In the program CHAOSS, after input of initial 
values (lines 170 - 230) and the drawing of the 
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XCLIM> 


Malue of C-8.6 


1 Iterations(n) 
Value of C-8.6 


Population converges to a steady state 


axes (lines 260 - 330), the input values are also 
printed to provide a permanent record. The 
chosen range of values of c (C0,C1) is then 
divided into the specified number of points on 
the c axis (D%) and for each value the iterative 
values of X(n) are calculated, up to the chosen 
limit for n (M%), again using an FN function 
(lines 350 - 390). 


GRRPH2 


XCLIMD | " " 
|! | | ! | {| || ІП 
| | || 

| | || | | | ІШ 
FT | 


"e| 
| 


Value of C-8.88 


Iterations(n) 


Population oscillates between four levels 


Provision is made for the first T% values to be 
ignored for graphing purposes, and the 
remainder are plotted on the vertical axis, 
provided they fall within the range of X(n) 
selected (X0,X1) (lines 410 - 480). All the values 
from iterating X(n) between T% and M% are 
thus plotted against that particular value of c. 
There could be many such values for any one 
value of c, though as we would expect for 
values of c between 0.25 and 0.75 there is often 
only a single value, so that a single point is 
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printed (M%-T%) times on the same spot. C is 
then increased to the value of the next point on 
the c axis, by another FOR-NEXT loop, and the 
process repeated (line 500) until the whole 
range between СО and C1 has been covered. 


Listing 3 


REM Program CHAOS3 
20 REM Version В1.2 
30 REM Author Jim Vernon 

40 REM BEEBUG March 1990 

50 REM Program subject to copyright 


100 ON ERROR:PROCerror:END 
110 MODE1 
120 PRINT'" 


X (n4*1) =4*с*Х (n) * (1-Х (n)) 


130 PRINT'"This prog. graphs X(n) agai 
nst"'"changing c. Ranges of X and of са 
nd"'"the initial value of X can be chose 
n." 

140 PRINT'"The range of c is divided i 
nto D$"'"intervals and X is iterated M$ 
times"'"for each value of c and those wi 
thin"'"the defined range of X graphed." 

150 PRINT'"The total number of iterati 
ons per"'"value of c (M$) and the number 

to be "'"ignored (T$) can also be varie 
q; 


160 REM Input constants, ranges etc. 

170 INPUT'"Limits of c (<1) (=C0,C1)", 
C0,C1 

180 INPUT"Limits of X (<1) (-X0,X1)",X 
0,X1 


190 

200 
D% 

210 INPUT "Total No. of iterations per 
val.c(=M%)",M% 

220 INPUT"No. not to be printed(T%)",T 


% 


230 


INPUT"Initial X (-IX)",IX 
INPUT"No. of points on C axis(D$)" 


INPUT"NAME of Ғі1е",А5 


240 CLS 

250 REM Draw axes (with 10 divisions), 
mark ranges etc. 

260 PROCaxis (200,150,200, 950) 


270 FOR Q$-1 TO 10:PROCaxis (200, 150+0% 
*80,210,150+0%*80) :NEXT 

280 PROCaxis (200,150,1000, 150) 

290 FOR Q$-1 TO 10:PROCaxis (200+0%*80, 
150,200+0%*80,160) :NEXT 

300 PRINT ТАВ(10,0);А5 

310 PRINT TAB(0,2) ;X1:PRINT TAB(0,15)" 
X(n)":PRINT TAB(0,27) ;X0 
320 PRINT TAB(5,28);CO:PRINT TAB(19,28 
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)"c":PRINT TAB(30,28);C1 

330 PRINT TAB(0,30) "M$-";M$;" 
Че ОБЕ СЕТ 

340 REM Calculate values of с апа reit 
erated values of X(n) 

350 K=C1-C0:P=K/D% :L-X1-X0 

360 FOR С-С0 TO C1 STEP P 

370 Х-ІХ 

380 FOR N$ - 1 TO M$ 

390 X-FNformula (X) 

400 REM First T values of X(n) not sho 


2 Тт 


410 
420 
430 


IF N%<=T% GOTO 480 
REM From N%>T% start plotting 
Y$- (X-X0) *800/L+150 

440 R$-(C-C0) *800/K+200 

450 REM X(n) not plotted if outside ch 
osen range 

460 IF Y$«150 OR Ү%>950 GOTO 480 

470 PLOT 69,R$,Y$ 

480 NEXT 

490 REM Same calculations and plot for 
next value of c 

500 NEXT 

510 OSCLI("SAVE "+А$+" 3000 8000") 

520 END 

1000 : 

1010 REM Formula defined 

1020 DEF FNformula(Z)-4*C*Z* (1-2) 

1030 : 

1040 REM Procedure for drawing lines to 
make axes etc. 

1050 DEFPROCaxis (А%,В%, 6%, НФ) 

1060 MOVE А%,В% 

1070 DRAW G$,H$ 

1080 ENDPROC 

1090 : 

1100 DEF PROCerror 

1110 VDU7:REPORT:PRINT" at line ";ERL 


program. To start with, the effect can be 
examined of including the initial values of X(n) 
ie. Т% is made 0 or a small number. Figure 3 
shows the result when M% = 8, T% = 0 and IX = 
0.9. The picture is that of several polynomial 
functions fluctuating with increasing amplitude 
as c increases and the beginnings of a chaotic 
state when c is near to value 1. By 
experimenting with different values of IX and 
low values of M% and T%, a wide range of 
graphs is obtained, basically similar to figure 3 
but with differing frequencies and amplitudes. 
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GRAPH3 


: DZ=800 : IX-8.9 


Increasing complexity as c increases in value 


I 


As M% is steadily dict and with Т% kept 
at 80% to 90% of M%, the fluctuations of figure 3 
disappear and a different picture gradually 
emerges. Beyond М%=100 and Т%=90 no further 
major change develops but there is greater clarity 
in some regions. At this level changing the initial 
value of X (IX) has no effect. Figure 4, with 
M%=250 and Т%=220, is a typical example of the 
final picture. It gives a visual confirmation of the 
results already obtained from the program 
CHAOSI, with first a single line for X(n), then a 
succession of bifurcations starting at c = 0.75 and 
eventually chaos. As c increases, when bifurcations 
occur they are arranged vertically i.e. they occur at 
the same value of c whatever branch they are on. 


GRAPH4 


9.7 с 1 
MZ=258 : T%=22@ : рх-408 : IX-8.1 
For values of c»0.7 population changes 
appear tc degenerate into chaos 


The path of X(n) as it forks and forks again can be 
further studied by magnifying figure 4, using 
reduced values of the ranges X0,X1 and C0,C1 (X's 
limited range is only for the purposes of the graph, 
the iterative calculations still cover the full range 
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of X from 0 to 1). Table 1 gives the values of C0,C1 
and X0,X1 for insertion into the program CHAOS3 
which will steadily magnify the nodes at the top of 
figure 4, until a magnification of 10000 times is 
reached. М% and Т% have to be increased at these 
high magnifications to make the position of the 
nodes clear, so that even if the value of D is kept at 
400, the program may take several hours. It is 
worth it, however, to see that no matter how high 
the magnification, bifurcation continues with the 
broad shape remaining the same. 


| со - сі X0 - Xi IX M T 


[|o 1 0 1 0.9 10 0 
|| 0.7 1 0 1 0.9 10 0 
|| 0.7 1 0 1 05 1000 950 


0.8 0.9 0.8 0.9 0.5 500 475 


| 0.89 0.8928 0.89 0.893 0.3 2000 1900 
0.892 0.8926 0892 0.8924 05 4000 3800 | 
5000 4700 


0.8924 0.8925 0.8924 0.8925 0.5 
— 3 = 


Table 1. Parameters for Ma 


jnifications 


From printouts of these various graphs, the values 
of c at the nodes can be measured reasonably 
accurately. Table 2 gives measured values of c for 
the first 6 groups of nodes and shows how the gap 
between the values of c rapidly falls away. The 
decline is in fact geometric, with a dividing factor 
whose limit for a very large number of forks is 
4.669... (Feigenbaumvs constant). The figures in the 
last column of Table 2 are all close to this figure. 


= = = 1 
Value of 


Distance 1st. distance | 
c at node apart of nodes divided by 2nd. || 
0.75 | 
0.86236 тезе 4.753 
0.8860 нен 4.626 | 
089111 ves Fah 4776 
0.89218 eic 4.280 
š 0.00025 Ç 
0.89243 
| = н = = — 
Table 2. Nodes in 4c.X.{1-X) 


There are even more interesting aspects to this 
program; however, space dictates that these will 
have to be left to next month. In the meantime, 
see what you can discover for yourself. 


WORKS OF REFERENCE 
CHAOS - Making a New Science by James Gleick, 
Sphere Books 1989 (see review in this issue). 


Exploring the Geometry of Nature by Ham 
Reitman, Windcrest Books 1989. 
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Soft Function Keys Within View 


Peter Vince explains how to make more use of the function keys with View, 
and improve the efficiency of your word processing. 


If a word or phrase is to be used 
often while editing with View, it 
is possible to program a function 23 
key with this string. This will 
not only save some time for us 
common two-fingered typists, 
but will also reduce the number of errors 
caused by trying to type the recurring phrase 
too quickly. This is especially true if the text 
being edited is a source listing for a computer 
program. 


The manual for View version 3.0 explains the 
procedure on page 112, but there is no mention 
in the View Guide or Into View for View 2.1, 
even though the technique works just as well 
there. The function keys are already used by 
View for its various commands, both by 
themselves, and with the Shift or Control keys 
pressed. The fourth combination, using both 
Shift and Control together, isn’t used however, 
and so by issuing the OS command *FX228,1 
from the command screen, pressing Ctrl-Shift- 
fkey will cause that key to be expanded as a 
soft key, and any programmed string to be 
entered into the text. 


By way of an example, I was recently typing in 
a Fortran program, and the print statement is 
rather more complicated than in Basic. From 
the command screen the following lines were 
entered: 


*FX228,1 
*KEYS"WRITE (OUTPUT, " 


so every time I needed a write statement, I 
merely pressed Ctrl-Shift-£5, followed by what I 
wanted to be printed. 


This program had eight-digit line numbers (at 
the end of each line). For ease of entry, only the 
last four digits were typed in, as the preceding 
zeros could be added afterwards. The following 
extract from the program shows some of the 
line numbers preceded with their zeros: 
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HOW MANY CHAR. TO SEARCH IN INPUT RECORD 
WRITE (OUTPUT, 23) 
FORMAT("ENTER FILE TYPE") 


READ(INPUT,24)X 
24 FORMAT (А7) 


00001150 
00001160 
00001170 
00001180 
00001190 


However, entering the four zeros on every line 
was going to be very tedious. The zeros were 
therefore programmed into f5, but it was still 
tricky to release the Shift and Control keys and 
then move down to the next line and back to 
the beginning of the new line number. What 
was needed was the ability to program in not 
only text characters, but also cursor key 
movements. This is all clearly explained in the 
Wordwise manual, but not in that for View. 


If "cursor editing" is turned off with *FX4,1, 
then the left cursor key gives a character whose 
is value 138. I made a guess that this might 
have the desired effect, but as this code is 
greater than 128, a rather complicated character 
sequence is needed to tell the operating system 
to put that byte into the soft key buffer. It is 
explained on page 142 of the BBC micro User 
Guide (Chapter 25 - Programming the Red User 
Defined Keys), and on page 16 of the Advanced 
User Guide, that |! used in a *KEY definition 
adds 128 to the value of the following byte 
(where “1” is the character to the left of the 
cursor keys obtained by pressing Shift and ^V 
together). The value wanted was 138, i.e. 128 + 
10, so “1117” is required to program code 138 
into a function key (where ‘|J’ represents Ctrl-J 
which has code 10). 


But it didn't work as expected - that code in fact 
simulated pressing the Delete key! After some 
trial (and a lot of error), it transpired that 
“ТИХ” would give the desired effect, and that 
“1117” gave the cursor-down command. Thus 
to get the desired effect function key f5 needed 
to be programmed as follows: 


*KEY5"0000| ! |X| ! IXI ! IXI ! IX| ! |Z" 
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Soft Function Keys Within View 


after which, positioning the 


Code Sequence Key Effect 


cursor on the beginning of the 
first line number, ensuring insert (136) ШІН Escape Go to command screen 
mode was on (СЫ), and аты Tesi Коло 
pressing Ctrl-Shift-f5 repeatedly, (139) ШК Tab Insert TAB code 
caused the zeros to be added as (140) ІШ (10) Format block 
required. (141) IHM (f1) Go to top of text 
(142) MN (о) Go to bottom of text 
While ' searching for the es үч da EE 
appropriate sequence, it became (145) na (15) To end of line 
apparent that all of the function (146) ИВ (16) Insert line 
key operations of View, and Md ' М Бекс 
those of the RESEND and other (149) ! (f9) Delete character at cursor 
keys, could be simulated by the (150) ! (110) No effect 
same method. Table 1 shows the he ! wu Сору d text 
! eft-cursor ursor Вас 
codes and key sequences needed (153) ! Right-cursor Cursor Forward 
to obtain each effect (codes 128 (154) ! Down-cursor Cursor Down 
to 135, and 188 to 255 seem to (155) ! Up-cursor Cursor Up 
have no function), from which it (156) (Shift-f0) jane 
can be seen that Ud | 1С would (157) | (Shift-f1) Swap case 
give the equivalent to Shift- (158) ! (Shift-f2) Release Margins 
Cursor-Left (go back to start of (13) ! ОГ) Пед Е IU 
word), which would be easier hen " NUS Highlight 2 
than all the backspaces used (162) ! (Shift-f6) Go to Marker 
above. (163) ! (Shift-#7) Set Marker 
(164) ! (Shift-f8) Edit command 
; : (165) ! (Shift-f9) Delete command 
ту MEANA шие (166) |! (Shit-í0) — (No effect) 
sophisticated editing strings can (167) |! (Shift-Copy) ^ Insert current ruler 
be pre-programmed into the ten (168) ! (Shift-left) Back to start of word 
function keys, to be invoked Ws ! аа, Бао UR. next мога 
subsequently by pressing Shift- (171) | (Shift-up) Up a screentul 
Ctrl in conjunction with the 
appropriate function key. (172) ! (Ctri-f0) Delete block 
Furthermore, a group of common us $ erat Ма madi 
function key definitions can be (175) y (Ctr-t3) Justify mode 
written as a Basic program, to (176) ! (Ctrl-f4) Insert mode 
define the function keys before tu ! epe Жалы ри 
А " . ! ы ! 
еуеп entering View. The ultimate (179) ! (Ctri-f7) Gorestansie kines 
in automation is to set up a !Boot (180) (Ctri-f8) Mark as ruler 
file on your View disc which (181) ! (Ctri-f9) (No effect) 
automatically chains this program Ms \ Ко ps nen 
before entering View itself. For (184) |! (Ctri-left) Go to beginning of line 
example: (185) ! (Ctrl-right) Go to end of line 
(186) [: (Ctrl-down) Go to bottom of text 
*BASIC (187) !; (Ctrl-up) Go to top of text 
CHAIN"KeyDefs" 
түлен Table 1. Key sequences for soft key definitions 


For a more extensive discussion of the possibilities of the two part article on this subject entitled Getting 
using the soft keys with View, readers are referred to а Better View in BEEBUG Vol.4 Nos.9&10. (3 
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Dichotomous Keys (Part 2) 


Rupert Thompson concludes the description of his expert system. 


‚ ~ Last month we introduced a program to edit 


and run simple dichotomous keys. The routines 
we described are fine as they stand, but it 
would be nice to have some more powerful 
editing techniques. These are provided by this 
month’s routines. Type in and save the listing 
carefully, then merge it with last month’s 
program using the following sequence of 
commands: 

*SPOOL Dich2 

LIST 

*SPOOL 

LOAD"Dich1" 

*EXEC Dich2 

SAVE"Dich" 
or replace “Dich” in the last line with your own 
filename. No amendments need to be made to 
last month’s listing. 


QUESTION CHAINS 
By virtue of the dichotomous structure, each 
question may point to two others below it in 
the key. Thus a chain of questions soon builds 
up. However, the simple editor presented last 
month merely treated each question 
individually, not as part of a chain. With this 
month’s listing in place the editor automatically 
chains the questions to one another, a process 
which is totally invisible to the user. Consider 
the following arrangement, for example: 

Question 1 (Root Level) points to 

Question 2 and Question 3 

Question 2 (Up to Question 1) 

Question 3 (Up to Question 1) 

Question 4 (Root Level) 


When question 1 is edited, questions 2 and 3 are 
automatically connected to it in the chain. Now 
when you are in edit mode, as well as the 
question you are editing, the next level up in the 
chain is displayed above it on the screen. This 
makes constructing a key considerably easier. 


A question is designated Root Level if it is not 
connected to an earlier question, otherwise the 
number of the earlier, or parent, question is given. 
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The Up Lev option moves back one step up the 
chain. 


ROUTING 

The techniques available for routing are very 
powerful. The simplest are connected with 
chaining. 


Suppose that in the above example you re- 
define question 1 to point to 3 and 4, omitting 2 
from the chain. Question 4 will be connected up 
automatically, but question 2 still thinks that it 
too is part of the chain. In fact it is not, and 
question 1 will never call it, but when editing 
question 2, question 1 will still be displayed 
above it on the screen, and Up Lev from 2 will 
go to 1. To remove 2 from the chain, select 
Go To, choose question 2, select Routing and 
then Connect. Since no other question points to 
2, it will be removed from the chain. However, 
had it been pointed to by another question, but 
was still not part of the chain, then Connect would 
hook it in. 


Since any keys designed with last month’s 
listing will not be chained up, the effect of 
Connect can easily be demonstrated by selecting 
it for questions 2 or 3, for example. However, 
the easiest way to chain a whole key is with the 
Re-Chain option. This will attempt to connect 
each question in turn to the question which 
points to it. This is very useful if the chain 
becomes corrupted in some way. 


RE-ROUTING 
Suppose that you want to move a question 
from one position in a key to another. You 
could do this manually, but it would be 
very tedious. Instead, select Routing and 
then Re-Route to perform the transplant 
automatically. For example: 

Question 1 points to 2 and 3 

Question 2 points to 5 only 

Question 3 points to 6 and 7 

Question 4 (un-chained) 


Beebug March 1990 


КЕС: 


Dichotomous Keys 


could be transformed to: 


Question 1 points to 4 and 3 
Question 2 (un-chained) 
Question 3 points to 6 and 7 
Question 4 points to 5 only 


Thus question 2 has been moved to position 4, 
and the chain re-connected automatically. Be 
warned, though, that re-routing question 1 will 
prevent the correct operation of the key. 


Dichotomous Keys : PLACES (6) 
Prev Q ЮО Up lev Edit Go to Print Routing Stop 
One Level Up - Question 1 (Root Level) 
Qstn : Is it in Yorkshire 


Yes - 2 


This Level - Question 2 (Up to Question 1) 


Yes - Halifax 


Please enter the above information. Press RETURN at each field. 


The editing screen showing the new functions 


This technique can be used to swap the positions 
of questions in the key. You may remember from 
last month that one spare question was created 
when the key was set up. This can be used to 
swap two questions without erasing one of 
them. For example, consider a file containing 20 
items. Only 19 questions are needed, leaving 
one, number 20 say, free. The following sequence 
will swap questions 3 and 7: 


(i) re-route question 3 to question 20 
(ii) re-route question 7 to question 3 
(iii) re-route question 20 to question 7 


Thus the unused question acts as a temporary 
store. You will notice that once again the whole 
chain has been re-connected. 


PRINTING 

The final utility this month is a routine to print 
out the key onto paper. Simply select Print for a 
paper copy in a similar format to that shown at 
the start of Part 1. 
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USING DICHOTOMOUS KEYS 

Finally, it will be helpful to discuss some ideas 
on the use of keys. They are very easy to use, 
even for non-experts. The program presented 
here is a type of Expert System - it has a 
knowledge base from which ordinary people 
can identify anything known to the system. 
Thus the program has a practical use in 
addition to providing a demonstration of 
Artificial Intelligence. For example, you could 
let a group of pupils identify chemical 
compounds for themselves with the help of a 
key. Alternatively, a medical knowledge base 
could be used for self-diagnosis. This is in fact 
being tried in some surgeries, although the 
knowledge base needs to be very large, and the 
doctor must only use the diagnosis as a second, 
not always entirely reliable, opinion. This is not 
to suggest that the key will get it wrong, but 
that the patient might well give a wrong 
answer, and a life could be at stake! 


Bear in mind, of course, that a key can only 
identify something it knows - if you need proof 
of this, try to identify a circle with the key 
shown in Part 1, and see what result you get! 


2200 IF 2=2 AND ptr>0 THEN qstn=ptr | 
2230 IF Z=5 THEN PROCprintkey 
2240 IF Z=6 THEN PROCroute 
2830 PROCchain 
2850 DEF PROCchain:IF VALyes$>0 THEN I= 
| VALyes$ : PROCreadrec (I) :ptr=qstn:PROCwrit 
| erec(I) 
2855 PROCreadrec(qstn) :IF VALno$>0 THEN 
I=VALno$ :РВСгеаагес (I) :ptr=qstn:PROCwr 
iterec (1) 
2860 ENDPROC 
2865 DEF PROCconnect 
2870 LOCAL I,n:I-0:n-0 
2880 REPEAT: I=I+1:PROCreadrec(I):IF VAL 
yes$=qstn OR VALno$=qstn THEN n=-1 
2890 UNTIL I=ite% OR n:IF NOT n THEN I= 
0 
2900 PROCreadrec (qstn) :ptr-I | 
2910 ENDPROC ? 
2920 DEF PROCroute | 
2930 LOCAL Z 
2940 lotus$--1 
| 2950 Z=FNlotus ("Re-Chain*Connect *Re-Rou 


|te*",2,-1,-1,0) 
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2960 IF Z=0 THEN PROCrechain 
2965 IF Z=1 THEN PROCconnect :PROCwriter 
ec(qstn) 

2970 IF 2-2 THEN PROCreroute 

2980 ENDPROC 
=| 3180 DEF PROCprintkey 

3190 IF NOT FNsure("Print out Key.") TH 
EN ENDPROC 
3200 LOCAL I 
3210 PROCwindow(3,-1):VDU2 
3220 PROCcent ("Dichotomous Keys 
e$) 
3230 PROCcent ("("4STR$ite$4" Items)") 
3240 PRINT:FOR I-1 TO ite% 
3250 PROCreadrec(I):IF ptr»0 OR I-1 THE 
N PROCentry 

3260 NEXTI 

3270 VDU3:CLS:ENDPROC 

3280 DEF PROCentry:PRINT 

3290 PRINTTAB (5) ; 1; TAB(9) ; q$ 

3300 PRINTTAB(9);"If YES then ";FNifyes 
(yes$) 

3310 PRINTTAB(9);"If NO then ";FNifyes 
(no$) 

3320 ENDPROC 

3330 DEFFNifyes(o$):IF VALo$-0 THEN -"i 
t is "+0$ ELSE -"go to Question "+05 
3340 DEF PROCcent (0$) : PRINTTAB ( (80-LENo 


io RENE 


$) /2) ; 0$: ENDPROC 

3420 DEF PROCreroute 

3430 LOCAL I 

3440 PROCwindow(6,-1) : I=VALFNenter (22,0 
‚3,"", "0123456789", "Move this Question ( 
"+STRS$qstn+") to Question"):CLS 

3450 IF I=0 OR I>ite% THEN CLS:ENDPROC 

3460 IF ptr»0 THEN p=ptr:PROCreadrec (pt 
r):IF VALyes$=qstn THEN yes$-STR$I ELSE 
no$=STR$I 

3465 IF p»0 THEN PROCwriterec (р) 

3470 PROCreadrec (qstn) :PROCwriterec(I) 

3480 ptr-0:q$-"":yes$-"":no$-"":PROCwri 
terec(qstn):qstn-I 

3490 PROCreadrec(qstn):I-VALyes$:IF I>0 

THEN PROCreadrec (І) :ptr=qstn:PROCwriter 
ес (I) 

3500 PROCreadrec (qstn):I-VALno$:IF I>0 
THEN PROCreadrec (I) :ptr=qstn:PROCwritere 
с(1) 

3510 ENDPROC 

3520 DEF PROCrechain:q=qstn 

3530 PROCwindow(3,-1) :PRINTTAB (30,8) ; "C 
haining Question ";:FOR qstn-2 TO ite$:P 
RINTTAB (48, 8) ; qstn:PROCreadrec (qstn) : IF 
q$<>""AND yes$<>""AND no$<>""THEN PROCco 
nnect :PROCwriterec (qstn) = 

3540 NEXTqstn:qstn-q:ENDPROC 


Upgrading to an Archimedes (continued from page 9) 


an analogue RGB connection (to obtain up to 
256 colours on the screen at any one time). The 
Beeb uses a TTL system via DIN connectors. 
However, if you have a monochrome monitor 
which works from the BNC or UHF sockets, 
then this will work just as well with the 
Archimedes, though you will miss the pleasure 
of all those extra colours of course. If you 
decide to keep your Beeb, you can usually use 
an Arc colour monitor with it with a suitable 
lead. 


If you are buying a new colour monitor for an 
Archimedes then you have a choice between 
the standard colour monitor and costing about 
£220, or a so-called multi-sync monitor, which 
doubles the horizontal resolution allowing 
several additional high resolution screen modes 
to be used, but at a cost of some £520. 


You should have realised by now that any 
sideways ROM or RAM boards, shadow RAM 
boards and similar have no place on an 
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Archimedes (though ROM-based software may 
still be usable). Likewise, teletext adaptors and 
second processors cannot be carried forward to 
the new system. However, any modem which 
you have may well be usable with an 
Archimedes, though you will need a new 
connecting cable. The controlling software may 
still be usable (but see Software Compatibility 
next month). 


If you use any equipment which connects to the 
user port, analogue port or 1MHz bus, then you 
may still be able to use that (by buying an I/O 
podule), but there may be a problem with any 
controlling software, more than likely if it is 
ROM based. You will need to check this area 
individually. 


Next month I will conclude this article by 
considering the important question of software 
compatibility, as well as looking at the promised 
case studies, and a comprehensive summary of the 
whole question of upgrading. 8 
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Games Review 


Peter Rochford reviews the latest games from the Superior stable. 


Products Play It Again Sam 12 

The Last Ninja 2 

Superior Software 

P.O.Box 6, Brigg, 

South Humberside DN20 9NH. 

Tel, (0652) 58585 

£9.95 (BBC & Electron cassette) 
£11.95 (5.25" disc) 

£14.95 (3.5" disc for the Compact) 
(Available from BEEBUG - all prices inc. VAT - 


p&p extra) 


Supplier 


Prices 


Yet another Play It Again Sam! We are now up 
to number 12 in this apparently never-ending 
series of four-game 
compilations from 
Superior. This one 
features two oldies, 
Skirmish and Blagger, 
plus two fairly recent 
releases, By Fair 
Means or Foul and 
The Last Ninja. The 
inclusion of the latter 
two on this compila- 
tion is surprising as 
they are really not 


that old. : 
Bu Fair Means or Foul 


The Last Ninja is a game based on the theme of 
martial arts, where you guide your man in his 
quest to reach the inner sanctum of the palace 
of Lin Fen. You must collect objects and 
weapons along the way to help you achieve 
your goal. As usual, there are many hazards to 
contend with, puzzles to solve, and assailants 
to overcome. The game features some nice 
graphics with good animation. However, game 
play can be a bit of a trial at first with the 
number of key combinations to learn and 
remember. 


Ву Fair Means or Foul is a boxing game that 
can be played by one or two players. The 
general idea of this game is to knock hell's 
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bells out of your opponent. There are 
different legitimate punches and moves you 
can make, but if they fail you can always 
throw in the odd dodgy one when the referee 
isn't looking. This game is again not easy to 
master, needing the use of some nine keys. А 
joystick, to my mind, is a ‘must’ unless you 
are blessed with the manual dexterity of 
Fagin. 


Next we have Skirmish. This is a version of the 
old arcade classic ‘Joust’. The game consists of 
guiding a knight around the screen on the back 
of a large bird, while being attacked by other 
such birds. To add to 
your troubles there are a 
few Pterodactyls also 
intent on doing you 
harm. It is quite a simple 
game with rather sparse 
graphics, but nevertheless, 
very addictive. 


Lastly, we have Blagger. 
This is a real oldie 
which was originally 
released by Alligata 


Blagger 
way back in the Beeb’s early days. It is a 
platforms and levels game where the object is 


Continued on page 56 
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Using the ROM Filing System (Part 2) 


Jon Keates completes his explanation of the ROM Filing System by describing 
a program to load files to the RFS. 


Following last month’s program, which created 
the ROM header for the ROM Filing System, 
this month’s program, RFSload, will allow you 
to load any suitable machine code and Basic 
programs, or EXEC files, into RFS memory 
(sideways RAM) using the ROM header. 


The new program should be typed in and 
saved. Before attempting to use RFSload, make 
sure that you have already installed the RFS 
ROM image header, produced by last month's 
program, in a suitable RAM bank and pressed 
Ctrl-Break. Once a suitable RFS header, or an 
already partially full RFS, has been installed 
(you can always add additional files to an 
existing RFS system), RFSload will then load 
one or more selected files in turn into memory 
at &4000. It formats each file with the necessary 
header blocks and CRC data, as it is written to 
sideways RAM in the RES format. 


The format the RFS uses is exactly the same as 
the CFS (Cassette Filing System) format. The 
file data is split into blocks of 256 bytes. The 
first and last blocks of each file are formatted 
with a header block, which contains the file 
information, as well as the Cyclic Redundancy 
Check (CRC) data for the current block. For 
further details about the RFS refer to the User 
Guides or The BBC Micro ROM Book. 


PROGRAM INFORMATION 

When run, the program first prompts for the RFS 
Title as shown by *ROMS and the RAM bank 
number. This information is then checked to 
ensure that the wrong RAM image is not written 
to. After this PROCsrl requests the start address 
in sideways RAM at which to load the files. This 
is marked by an end-of-RFS marker byte (&2B). 
If this address is not known, entering an invalid 
address, outside the range &8100 to &BFDO, will 
simply cause PROCgetmark to catalogue the 
RFS and find the marker for itself. 


When the position of the end-of-RFS marker 
has been verified, a REPEAT-UNTIL loop then 
calls PROCarrange until there are no more files 


24 


to be loaded. This procedure checks the filing 
system in use, and sets the input verification for 
the "Load File ...." prompt. When this prompt 
appears, it is possible to use most OS and filing 
system commands to select, change or 
catalogue the directory. 


When the "Any more Files to Load" prompt is 
answered with ‘N’, the program terminates and 
gives the necessary information to save the RAM 
image to disc. All that now remains is to press 
Ctrl-Break to let the OS know that it has a ROM 
Filing System active. Type *ROM and use *EX, or 
*CAT with *OPT1,2 to check the file information. 
The RFS image can always be loaded back into 
sideways RAM at a later date, and the files it 
contains accessed using the documented RFS 
commands (*CAT etc), once the RFS has been 
selected with the “КОМ command. 


The program will run in mode 7 with PAGE at 
&1900 on a model B, provided that sideways 
RAM has been fitted. However, it may be 
necessary for you to alter each occurrence of the 
Master's *SRWRITE command (contained 
within OSCLI statements) to suit your type of 
sideways RAM (refer to the instructions 
supplied with this). Also the character validation 
in FNverchr(^4567",1) at line 2060, will need to 
be changed if the RAM banks are not labelled 4, 
5, 6 and 7. The correct numbers for the RAM 
banks should be inserted in their place. 


TECHNICAL INFORMATION 

For the sake of ease and speed I have used 
assembler, not only for Cyclic Redundancy 
Checking and RFS search procedures, but also 
for the OSFILE parameter block and RFS 
header block procedures, with one pass and the 
OPT variable set to zero. 


The program is well error trapped by the relevant 
messages and also PROCerrs. This is to ensure 
that any wrong commands that might be given 
or filing system clashes are recoverable. The 
'Y /N' prompt can usually be answered "Yes', 
unless there is a fault in the program listing itself. 
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HINTS ON USE 

Owing to the slow access speed of the RFS, it 
seems pointless to put long programs in the RFS, 
although a file can spread across any two 
consecutive RFS banks as long as the block 
numbers are concurrent. Personally I tend to use 
it for printer, disc and debugging routines that 
are usually needed when a different filing system 
is in use from the one which contains them. 


As written, RFSload is best used if the files you 
wish to write to the RFS are in the current 
directory. This then allows the maximum 
number of characters for the file name, and it 
will be loaded into the RFS with this name. 


When the command *-ROM-LIBFS is used on a 
Master, the RFS will be searched for a file 
automatically, if it is not on the current filing 
system. Also, it can be used in a temporary 
manner by using *-ROM-RUN <fsp>. 


If a machine code program called !BOOT is 
written and loaded into the RFS, then when 
*ROM followed by Shift-Break is used, the RFS 
will automatically *RUN the !BOOT file (just as 
with any other filing system). 


Remember that when any files are run or loaded 
from the RFS, it will remain “Paged In” as the 
current filing system, so if your own program 
requires DISC or other ROM access then the 
relevant OS commands will have to be inserted 
at the start of the program before loading it into 
the RFS in the first place (with RFSload). 


r 


Program RFSload 

Author Jon Keates 

Version B3.03 

BEEBUG March 1990 

Program subject to copyright 


REM 
REM 
REM 
REM 
REM 


MODE135 

HIMEM-&3FFF 
8$-4:VDU23,1,0;0;0;0; 
osfile$-&FFDD:osrdrm$-&FFB9 
oswrch$-&FFEE:osbyte$-&FFF4 
osnew1%=&FFE7 : osargs%=&FFDA 
fload$=&4000:crc%=&900:smark%=& 900 
hblok$-&930:fblok$-&960 
fname%=6& 980 : footer%=&990 
valid$="":FOR А%-32 TO 126 
valid$=valid$+CHR$ (A%) :NEXT 
ON ERROR PROCerrs 


200 
210 
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| 220 REPEAT PROCinfo 

230 trom$2"":2?&F6-&09:?&F7-680:Y$-ramb 
lk% 

240 REPEAT C%=(USR(osrdrm%) AND &FF) 

250 IF С%<>0 trom$=t rom$+CHR$ (C$) 

260 ?&F6-?&F6-1:UNTIL C$-0 OR ?&F6=&14 
| 270 IF trom$-"" OR trom$-CHR$255 trom$ 
="NOTHING" 

280 IF title$<>trom$ PROCmess (0,trom$+ 
" is in RAM bank "4STR$-ramblk$) ELSE PR 


OCmess(-1," ... Verified.") 

290 UNTIL flag$-TRUE 

300 PRINTTAB(2,6)"RAM bank : "CHR$130; 
ramblk$; 

310 PRINTTAB(16,6)CHR$135"RFS .. : "CH 


R$130;title$ 
320 REPEAT PROCsrl 
330 UNTIL flag$-TRUE 
340 VDU26:mleft$-&BFFF-srload$ 
| 350 ON ERROR PROCerrs 
360 PROCchek 
370 REPEAT flag$-TRUE 
380 PRINTTAB (28, 9) -mleft$ 
390 PRINTTAB(3,23)" End of RFS maker 
"CHR$129;"&";-srload$;SPC5 
400 PROCarrange 
410 mleft$-&BFFF-srload$:PRINTTAB (28,9 
))2»mleft$ 
| 420 PRINTTAB(3,23)CHR$132"Any more Fil 
les to load .. Y/N :"; 
430 REPEAT ans$-GET$:UNTIL INSTR,"YyNn 
",ап55)>0 
440 UNTIL INSTR("Nn",ans$)>0 
450 VDU28,0,22,39,12,12 
460 PRINT''"To Save RFS Image use 
и 
| 470 PRINT''"*SRSAVE ";title$;" 8000 "; 
^srload$41;" ";-ramblk$ 
END 


at 


DEF PROCarrange 
А%-0:Ү%-0:Х%-6880 
IF (USR(osargs$) AND &FF)=4 lmt$-7 
lmt$-10 
VDU28,0,22,39,12,12 
| 1040 PRINT''SPC6;"Load File ? ..." 
1050 PRINT''CHR$133SPC6; : file$=FNverchr 
(valid$,lmt£) 
1060 IF LEFT$(file$,1)-"*" PROCoscom:EN 
DPROC 
1070 PROCloadfile 
1080 IF flag$-FALSE VDU26:ENDPROC 


= 
о 
о 
о 


1090 PRINT''" File info ":^(flen 
$DIV256);" ";-flen$ 

1100 ptr%=fload%:bnos%=0 

1110 REPEAT 


1120 IF flen%<257 THEN status%=&80:mark 
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er$-&2B:blen$-flen$ ELSE status$-&00:mar 
ker$-&23:blen$-256 

1130 IF status$-&80 OR bnos$-0 PROChead 
block ELSE srload%=srload$+1 

1140 OSCLI"SRWRITE "+STRS$~ptr%+" +"+STR 
$-(blen$)-*" "+STR$~srload$+" "4STR$-ramb 
lk$ 


| 1540 srload$-srload$* (P%-hblok%) 
1550 ENDPROC 

1560 : 

1570 DEF PROCparablok 

1580 $fname$-file$ 

1590 P%=fblok% 

1600 [ OPT 0 


1150 srload%=srload$+blen% | 1610 EQUW fname$:EQUD fload$ 2: 
1160 ?&8B-ptr$:?&8C-(ptr$ DIV 256) :?&8Е 1620 EQUD 0:EQUD 0:EQUD 0 
=blen% 1630 ] 
1170 CALLerc% 1640 ENDPROC 
1180 ?footer$-?&8E:footer£?1-?&8D:foote 1650 : " 


| 

| Е 
r%?2=marker% | 1660 DEF FNlastbyte 
| 


1190 OSCLI"SRWRITE "«STR$-footer$4" +3 1670 IF flen%>256 sets%=2 ELSE sets$-1 
|"-STR$-srload$4" "4STR$-ramblk$ | 1680 IF Ғ1еп%>512 ext%=((flen% DIV 256 
1200 srload$-srload$42:flen$-flen$-blen *(flen$ MOD 256=0))-1 ELSE ext3=0 
% 1690 =srload%+ ( (LEN (file$)+23) *sets$) +Е 
1210 bnos%=bnos%+1 :ptr%=ptr%tblen% len$text$*3 
1220 UNTIL status%=&80:SOUND1,-12,160,6 1700 : 
:VDU26 1710 DEF PROCmess (er$,prt$) 
1230 ENDPROC 1720 VDU7,12 
1240 : | 1730 PRINT' 'CHR$131" "DIES 
1250 DEF PROCloadfile | 1740 PROCwait (2) : VDU26 
1260 PROCparablok 1750 flag$-er$:ENDPROC 
1270 At=5:X%=fblok%:Y%=(fblok% DIV 256) 1760 : 
1280 IF (USR(osfile%) AND &FF)<>1 PROCm | 1770 DEF FNverchr (test$,num%) 
ess(0," File not found .. "):ENDPROC | 1780 PRINT SPC (num$) ;CHR$124; 
1290 ladr$-fblok$!2 1790 FOR а%-0 TO num%:VDU8:NEXT 
1300 xadr%=fblok%!6 1800 LOCAL G$,got$:got$-"":*FX15 
| 1310 flen$-fblok$!10 | 1810 REPEAT G$-GET 
1320 eoft=FNlastbyte 1820 IF G$-127 AND LEN(got$)»0 VDU8, 32, 
1330 IF eof%>&BFFF PROCmess(0,"file too 8:got$-LEFT$ (got$, LEN (got$) -1) 
big for RFS RAM ..."):ENDPROC | 1830 IF LEN(got$)-num$ G%=13 
1340 PROCparablok 1840 IF INSTR(test$,CHR$(G%)) got$=got$ 
1350 A$-&FF:X$-fblok$:Y$-(fblok$ DIV 25 +CHR$ (G%) : VDU G% 
6) | 1850 UNTIL G%=13 AND LEN(got$)>0 
1360 CALLosfile$ 1860 =got$ 
1370 ENDPROC | 1870 : 
1380 : | 1880 DEF PROCwait (t$) 
1390 DEF PROCheadblock | 1890 T$-TIME:REPEAT UNTIL TIME>TS+100*t 
| 1400 P%=hblok% % 
1410 [ ОРТ 0 1900 ENDPROC 
1420 EQUB &2A:EQUS file$:EQUB 60 1910 : 
1430 EQUD ladr$:EQUD xadr$ 1920 DEF PROCoscom | 
1440 EQUW bnos%:EQUW blen% 1930 VDU12,14 
1450 EQUB status%:EQUD eof% 1940 requ$=RIGHTS (file$, LEN (file$)-1) 
1460 ] 1950 OSCLI requ$ 
| 1470 ?&8B-hblok$41:?&8C-(hblok$ DIV 256 1960 PRINT''" Press any Key to contin | 
l) ue." 
| 1480 ?&8F=(LEN(file$)+18) | 1970 G=GET:VDU12,15,26 
1490 CALLcrc% | 1980 ENDPROC 
500 [ OPT 0 1990 : 
1510 EQUB ?&8E:EQUB ?&8D 2000 DEF PROCinfo 
1520 ] 2010 CLS:PRINT 
1530 OSCLI"SRWRITE "4STR$-hblok£4" "+ST 2020 PRINTCHR$141CHR$134SPC7"RFS RAM 
В$-Р%+" "+STR$~srload%+" "+STR$~ramblk% LOADER" 
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2030 PRINTCHRS$141CHR$134SPC7"RFS КАМ 
LOADER" 

2040 VDU 28,0,22,39,12,12 

2050 PRINT''SPC6"RAM bank ? .. "; 
2060 rm$=FNverchr ("4567",1) 

2070 ramblk£-VAL (rm$) 

2080 VDU12 

2090 PRINT''SPC6"RFS name ? .. "; 
2100 title$=FNverchr (valid$,10) 

2110 ENDPROC 

ТАО 

2130 DEF PROCsrl 

2140 PRINTTAB(3,9)"Available RFS Memory 

: "CHR$129"&3FFF" 

2150 VDU 28,0,22,39,12,12 

2160 PRINT''SPC6"Sideways RAM start add 
ress a 

2170 PRINT'SPC7"or enter FF for search. 
" 

2180 PRINT''CHR$133SPC8"&"; 

2190 side$=FNverchr ("0123456789ABCDEF", 
4) 

2200 srload%=EVAL ("&"+side$) 

2210 IF srload$«&8100 OR srload%>&BFD0 
VDU7 : PROCgetmark 

2220 ?&F6-srload$:?&F7-(srload$ DIV 256 
) :Y$-ramblk$ 

2230 IF (USR(osrdrm$) AND &FF)<>43 PROC 
mess(0,"End of RFS not found ...") ELSE 
PROCmess(-1,".... Verified at &"+STR$~s 
rload%) 

2240 ENDPROC 

2250 

2260 DEF PROCgetmark VDU12 

2270 PRINT''CHR$131SPC6"Invalid SRAM ad 
dress." 

2280 PRINT''CHR$131SPC9"Seaching ... " 
2290 FOR pas=0 TO 1 

2300 P%=smark% 

2310 [ OPT pas*2 

2320 LDX #&D:LDY #(ramblk% EOR ЕЕ) 

2330 LDA #&8F:JSR osbyte% 

2340 LDA &F6:STA &70:LDA &F7:STA &71 
2350 CPX #0:BEQ enter 

2360 BRK:EQUS " ... RFS not found":BRK 
2370 .newl 

2380 JSR osnewl%:LDX #6:LDA #32 

2390 .gap 

2400 JSR oswrch$:DEX:BPL gap 

2410 .loop 

2420 JSR getbyte:CMP #&0:BEQ endn 

2430 JSR oswrch$:JMP loop 

2440 .endn 

2450 CLC:LDA &70:ADC #13:STA &70 

2460 LDA &71:ADC #60:STA 871 
2470 JSR getbyte:PHA 
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2480 JSR getbyte:STA &71 
2490 PLA:STA &70 
2500 .enter 
2510 JSR getbyte 
2520 CMP #&2A:BEQ newl 
2530 CMP #&2B:BEQ mark 
2540 BRK:EQUS " ... BAD RFS":BRK 

2550 .mark 

2560 DEC &70:RTS 

2570 .getbyte 

2580 LDA &70:STA &F6:LDA &71:STA &F7 
2590 LDY #(ramblk% EOR &F) 

2600 LDX #6E:LDA #&8F:JSR osbyte$ 

2610 LDA &F6:STA &70:LDA &F7:STA &71 
2620 TYA:RTS 

2630 ]:NEXT 

2640 CALLsmark$ 

2650 srload%=?&70+2?&71*256 

2660 IF ramblk%<>(?&F5 EOR &F) PRINT''C 
HR$129" WRONG RAM Bank  !":VDU7 

2670 PRINT''CHR$130" Епа of RFS at &" 
;^srload$;" RAM Bank ";(?&F5 EOR БЕ) 
2680 PROCwait (3) 

2690 ENDPROC 

2700): 

2710 DEF PROCchek 

2720 FOR pas=0 TO 1 

2730 P$-crc$ 

2740 [OPT pas*2 

2750 ШҮ #0:STY &8E:STY &8D:CLC 

2760 .loopl 

2770 LDA &8E:EOR (&8B),Y 

2780 STA &8E:LDX #8 

2790 .1оор2 

2800 LDA &8E:ROL A:BCC skip 

2810 LDA &8E:EOR #8:STA &8E 

2820 LDA &8D:EOR #16:STA &8D 

2830 .skip 

2840 ROL &8D:ROL &8E:DEX 

2850 BNE loop2:INY 

2860 CPY &8F:BNE loopl 

2870 RTS 

2880 ] 

2890 NEXT 

2900 ENDPROC 

2910 : 

2920 DEF PROCerrs 

2930 REPORT 

2940 IF ERR<>0 PRINT''" Error ";ERR;" 
at line ";ERL ELSE END e 
2950 PROCwait (1) :*FX15 

2960 PRINT'" Continue .... Y/N ? 
2970 G-GET:IF (G AND &DF)-ASC"Y" ENDPRO 
C ELSE STOP 

2980 ENDPROC B 
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Statistics for Pleasure 


Michael Taylor presents a program which shows “live” histograms of statistical functions, 
by themselves or linked together. 


Statistics can be fun - as this program is meant 
to be - offering insight into the fluctuations of 
repeated readings in science or of specified 
values in technology. It demonstrates 
Gaussian distributions (also known as 
normal distributions). An example is the 
distribution of IQ levels on either side of the 
mean throughout the population. 


In the program listed here, up to three variables 
each with a normal distribution can be given 
independent values for mean and standard 
deviation. The program then shows how any 
chosen function of those variables fluctuates. It 
offers values for the mean and deviation of the 
function and also displays - crawling up the 
screen - histograms of the selected variables 
and of the specified function. 


The program can be used in two ways: firstly, to 
give an insight into the way that statistical 
variables fluctuate and how they can be shown 
on histograms; and secondly, for study of the 
(rather difficult) way in which the standard 
deviation of a function of statistical variables 
depends on the standard deviations of the 
variables themselves. 


The program is in pure Basic, so you only need 
to type it in, save it, then run it. You can put it 
to work straight away on the following 
example, which is the easiest way to explain 
what the program does. 


USING THE PROGRAM 

Suppose that a rod is made of two parts, one 
40mm long and the other 60mm long. Of course 
the total length of the rod is 100mm. But now 
suppose that in manufacture the lengths 
fluctuate, the first part with a standard 
deviation of 3mm and the second with a 
standard deviation of 4mm. Suppose that the 
varying lengths follow a normal (Gaussian) 
distribution. What will be the deviation of the 
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combined rod? A manufacturer who expected it 
to be 7mm would be unduly pessimistic! 


What the program will do, given this example, 
is to display histograms that grow as the 
manufacture of the rods is simulated. Without 
further mathematics, the standard deviation of 
the lengths of the combined rods can be found. 


ted horizontally, and 
s vertica . 
are calculated, 


. 50008 
ELLE 


continue. 
Trials:1829 с10291 
Е: Mean 9.89832 and S.D. 1.13821. 


Using the program to display a histogram 
and statistical information 


When asked for a function, key in Х+Ү (i.e. the 
total length of the composite rods), and then the 
means and standard deviations of X as 40, 3 
and Y as 60, 4. There is no need to specify the 
number of trials when asked - just press Return. 
As the program runs, the mean will naturally 
approach 40 + 60 = 100mm. We can also see 
what happens to the standard deviation. 
Pressing Return again halts the program to 
display the up-to-date values of the mean and 
the standard deviation. Pressing Shift allows 
the program to continue. By tapping Shift while 
the program is running you can ‘capture’ the 
values of mean and standard deviation at any 
moment without halting the operation. Holding 
down Shift displays the mean and standard 
deviation continuously - at the cost of slowing 
the program down. You can also single-step the 
program by holding down Return and tapping 
Shift. 
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There is a traditional divide between 
mathematics, a priori and true of all possible 
worlds, and science, tested empirically and 
applying to our own world as it is. What we 
have in this program, however, is empirical 
maths! At any rate, I hope readers enjoy 
watching the histograms grow and 
experimenting with different functions. 


PROGRAM OUTLINE 

PROCVariables allows the function and the 
means and standard deviations of its variables 
to be input, and then uses dummy data to test 
that EVAL will accept the function. 
PROCInitialValues and PROCPicture set up the 
histograms with suitable scaling. 


At the start of the main REPEAT loop, 
PROCfind calls FNGauss, which repeatedly 
uses RND to churn out values of a variable 
which is almost normally distributed with 
mean of zero and standard deviation of unity. 
Perhaps readers can offer a faster way of doing 
this and speed the whole program up - for 
those of us without an Archimedes! 


PROCFind uses the values from FNGauss to 
produce random variables X, Y and Z with the 
specified means and standard deviations and 
calculates from them values of the function F. 
PROCdisplay slots values of X, Y, Z and F into 
arrays for the histograms. PROCStat works out 
and displays the mean and standard deviation 
of F. 


Г 


| 220 
| 230 
| 240 

250 


PROCInitialValues 
PROCPicture:VDU23,1,0;0;0;0; 
REPEAT 
PROCFind 

260 PROCDisplay 

270 IF INKEY-1:PROCStat:UNTIL FALSE 
|, 280 IF INKEY-74 OR Read%=Rmax% PROCSta 
t:REPEAT UNTIL INKEY-1 

290 UNTIL FALSE 

300 END 

ЭЛИ 

1000 DEF PROCVariables 

1010 CLS 

1020 PRINT''"Write a formula, F, in the 

notation of"'"Basic with three or fewer 

variables"'"selected from X, Y, or Z (U 
pper case)." 

1030 PRINT'"An example could be F = X*Y 
|, in which"'"case key in Х+Ү. Use low va 
lues of"'"variables (up to about 10), an 
d standarddeviations of about 1 to 10 pe 
rcent." 

1040 PRINT'"Values outside these may be 

accepted"'"but the picture may be poor. 

1050 INPUT''"Write the wanted formula i 
an Basic"'"notation: "Val$:X-1.132:Y-1.45 
3:2-21.576:Test-EVAL (Val$) 

1060 PRINT'"Give the mean and standard 
deviation"'"of each variable." 

1070 IF INSTR(Val$,"X")<>0 INPUT'"What 
is the mean of X? "Xmn$:INPUT'"and the s 
tandard deviation of X? "Xdv$:ELSE Xmn$- 
"m" :Xdv$-" " 

1080 IF ІМ5ТЕ(Уа15,"Ү")<>0 INPUT'"What 
is the mean of Y? "Ymn$:INPUT'"and the S 
tandard deviation of Y? "Ydv$:ELSE Ymn$- 
ии :Үдуб-" " 


10 REM Program Gauss61 1090 IF INSTR(Val$,"Z")<>0 INPUT'"What 
20 REM Version В1.0 is the mean of Z? "Zmn$:INPUT'"and the s 
30 REM Author Michael Taylor | tandard deviation of 2? "Zdv$:ELSE Zmn$= 
40 REM BEEBUG March 1990 | Отт 
50 REM Program subject to copyright 1100 INPUT'"How many trials? "Rmax$:IF 
60 : Rmax%=0 Rmax$-1E8 
100 8$-&02050A:Vsc1-8:Read$-0 1110 XM%=TRUE : YM3=TRUE : ZM3=TRUE 
130 PP-RND(-TIME) :MODE4 1120 Xmn-VALXmn$:IF Xmn$-"" XM$-FALSE 
160 VDU19,0,7,0;0;0; 1130 Xdv=VALXdv$:IF Xdv$-"" XM%=FALSE 
165 VDU19,1,0,0;0;0; 1140 Ymn=VALYmn$:IF Ymn$-"" YM$-FALSE = 
170 DIM Xb(300),Yb (300) , Zb (300) , Fb (300 1150 Ydv=VALYdv$:IF Ydv$-"" YM$-FALSE 
1160 Zmn=VALZmn$:IF Zmn$-"" ZM$-FALSE 
190 ON ЕВВОВ:РВОСЕггог1 1170 Zdv=VALZdv$:IF Zdv$-"" ZM$-FALSE 
200 PROCVariables 1180 ENDPROC 
210 ON ERROR:PROCError2 1190 : 
L— 
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1200 DEF PROCInitialValues 
1210 IF INSTR(Val$,"X")<>0 AND ХМ%=0 OR 
INSTR (Val$,"Y")<>0 AND ҮМ%-0 OR INSTR(V 
al$,"Z")<>0 AND ZM%=0 PRINT'"Not all of 
the means and S.D.s have beengiven. Plea 
se run the program again.":END 

1220 X-Xmn:Y-Ymn:Z-Zmn:Fmn-EVAL (Val$) 
1230 Max-Xmn 

1240 IF Ymn»Max Max-Ymn 

1250 IF Zmn»Max Max-Zmn 

1260 IF Fmn»Max Max-Fmn 

1270 Hscl - 800/Max 

1280 Xmpos=(Xmn*Hscl+140) 

1290 Ympos=(Ymn*Hscl+140) 

1300 Zmpos-(Zmn*Hscl*140) 

1310 Fmpos=(Fmn*Hscl+140) 

1320 Fsum=0:Fsq=0 

1330 ENDPROC 

1340 : 

1350 DEF PROCPicture 

1360 CLS 

1370 PRINT'" X,Y,Z and Е plotted horiz 
ontally, and their frequencies vertica 
lly. Ш 

1380 PRINT" Repeated values of Е аге с 
alculated,"'" where Е = ";Val$ 

1390 IF XM$ PRINT'" X: Mean ";Xmn;" а 
nd S.D, "Хат 

1400 IF YM$ PRINT" Y: Mean ";Ymn;" an 
d SD EY 

1410 IF ZM$ PRINT" 2: Mean ";Zmn;" an 
d S;D7 "24v 

1420 PRINT'" RETURN to halt, or SHIFT 
to continue." ':H$-POS:V$-VPOS:PRINTTAB (1 
болатта ныт 
1440 MOVE 20,80:DRAW 1259,80 
1450 MOVE 140,65:DRAW 140,95 
1460 MOVE 125, 60:VDU5:PRINT"o" 
1470 IF XM% MOVE Xmpos-35, 60:PRINT"X"; 
1480 IF YM$ MOVE Ympos-15,60:PRINT"Y"; 
1490 IF ZM% MOVE Zmpos+5, 60:РКІМТ"7"; 
1500 MOVE Fmpos-15,30:PRINT"F":VDU4 
1510 W%=1032-(V%+4) *32 
1520 VDU24,20;0;1259;W$; 
1530 MOVE 20,80:DRAW 20,W$ 
1540 DRAW 1259,W%:DRAW 1259,80 
1550 ENDPROC 
1560 : 
1570 DEF FNGauss:SS=0:FOR N%=1 TO 12 
1580 SS=SS+RND (1) :NEXT:=SS-6 
1590 : 
1600 DEF PROCFind 
1610 Read%=Read$+1 
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1620 IF XM$ X=Xmn+Xdv*FNGauss 

1630 IF YM$ Y=Ymn+Ydv*FNGauss 

1640 IF ZM% Z-Zmn*Zdv*FNGauss 

1650 FF-EVAL (Val$):Fsum-FsumtFF 

1660 Fsq=FsqtFF*FF 

1670 VDU31,H$432,V$:0$-0 

1680 PRINT;"[";Read$;"]";:8$-&02050A ^ 
1690 ENDPROC 

1700 : 

1710 DEF PROCDisplay 

1720 IF XM% Xpos=X*Hscl+140:Xs%=INT ( (Xp ‘ 
os-Xmpos) /4)+150:IF Xs%>299 OR Xs$«1 END 
PROC 

1730 IF YM% Үроѕ=Ү*Н5с1+140:Үѕ%=ІМТ ( (Үр 
os-Ympos)/4)4150:IF Ү5%>299 OR Ү5%<1 END 
PROC 

1740 IF ZM% Zpos-Z*Hscl*140:2s$-INT((Zp 
os-Zmpos)/4)*150:1F 75%>299 OR Zs$«1 END 
PROC 

1750 Fpos-FF*Hscl*140:Fs$-INT ( (Fpos-Fmp 
os) /4)+150:IF Е5%>299 OR Fs$«1 ENDPROC 
1760 IF XM% Xb(Xs$)-Xb (Х5%) +1:Xn=Xb (Xs$ 
)*Vscl:MOVE Xpos,80:DRAW Xpos, 80+Xn 

1770 IF YM% Yb(Ys%)=Yb(Ys%) +1: Yn=Yb (Ys% 
)*Vscl:MOVE Ypos,80:DRAW Ypos, 80+Yn 

1780 IF ZM% Zb(Zs%)=Zb(Zs%) +1: 2Zn=Zb (75% 
)*Vscl:MOVE Zpos, 80:DRAW Zpos, 80+Zn 

1790 Ер (Е5%) =Fb (Е5%) +1:Fn=Fb (Fs%) *Vscl 

1800 MOVE Fpos,80:DRAW Fpos, 80+Fn 

1810 ENDPROC 

1820 : 

1830 DEF PROCStat 

1840 @%=&02050A 

1850 Fmn-Fsum/Read$ 

1860 Fdv-SQR (Fsq/Read%-Fmn*2) 

1870 PRINT''" F: Mean ";Fmn;" and S.D 
- SEN ооз АЦ 

1880 8$-0:VDU31,H$422,V$ 

1890 PRINT;Read$;'' 

1900 ENDPROC 

191055 

1920 DEF PROCError1 4 

1930 IF ERL-1050 PRINT'"The Function wa 
S not well defined."''"Check that only t 
he capital letters"'"X, Y and Z were use 
d as variables."'"Press Return to try ag н 
ain.":IF GET:RUN:ELSE PROCError2 

1940 ENDPROC 

195055 

1960 DEF PROCError2 

1970 CLS:VDU26:@%=&A: IF ERR-17 END:ELSE 
REPORT:PRINT" at line ";ERL:END m 

1980 ENDPROC = 
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Learning about Chaos 


Mike Williams reviews a book on the theory of chaos. 


Chaos: Making a New Science 
by James Gleick, 
published in Cardinal by Sphere Books, 1989 at £5.99. 


We have all become accustomed to the likes of 
the Mandelbrot set and Julia sets appearing in 
computer magazines from time to time (and 
that includes BEEBUG). The fascinating visuals 
that result have a powerful ability to intrigue and 
mystify as order appears out of apparent chaos. 


This month’s main feature program addresses 
the subject more directly, and provides readers 
with programs with which to explore a further 
aspect of the theory of chaos. The book 
reviewed here complements the program and 
provides a comprehensive and popular treatise 
of the whole subject. It is currently being 
supplied by Logotron as part of an educational 
software pack on the same subject for the 
Archimedes. 


For a start, this is not an easy book to describe 
or summarise. That may be the consequence of 
the American nationality of its author, as the 
book, in my view contains a substantial 
amount of redundant material and somewhat 
boring biographical detail. For example, one 
learns of Mandelbrot’s parents, Lithuanian 
Jews, earning a living in ‘20s Warsaw as 
clothing wholesaler and dentist! There is also 
an account of how Mandelbrot came to invent 
the word fractal while looking at his son's Latin 
dictionary! 


The book begins by describing some early 
experiments in theoretical numerical weather 
forecasting, which led ultimately to the 
realisation that infinitely small changes can 
have significant consequences. This is referred 
to as the butterfly effect, “the notion that a 
butterfly stirring the air today in Peking can 
transform storm systems next month in New 
York". Scientists had previously assumed that 
order prevailed and that all systems were 
describable ultimately, in mathematical 
deterministic terms. The theory of chaos shows 
that even apparently ordered systems can 
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degenerate into chaos, often as a result of 
minute changes, and yet out of such chaos 
order can eventually reappear. This is 
demonstrated by the work of Robert May, 
whose studies of population growth form the 
basis of the feature in this issue of BEEBUG 
referred to earlier. 


Another concept on which the book dwells at 
length is how delving deeper and deeper into 
detail reveals yet more of the same. The classic 
example is that of a coastline - no matter how 
much you magnify it, it continues to exhibit the 
same level of indentation and roughness - a 
measurement known as the fractal dimension. 
This is true of the Mandelbrot set where 
magnifying any small part reveals yet more 
detail in a never ending quest. 


There is more, much more, to be found in this 
book which is a mine of fascinating 
information, despite my criticism of its 
inclusion of too much unwanted, largely 
biographic, detail. English readers might also 
find fault with its largely transatlantic outlook 
and the way the whole treatise seems to be 
woven around the lives of the human 
participants. 


Despite all of that, I found much that was of 
interest, providing a welcome background and 
context to what had previously been 
fragmented (fractal?) glimpses of the world of 
chaos described therein. The book runs to some 
350 pages with 8 pages of glossy full colour 
illustrations, plus many black and white 
drawings. There are also over 300 notes on the 
sources on which the book is based, including 
many further references for those wishing to 
pursue original material. 


If you are at all interested in broadening your 
knowledge of the Mandelbrot set and the world 
of ordered chaos of which it is a part, then I 
recommend this book despite my reservations 
about some aspects of its style, and it's certainly 
good value for the price. B 
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Printing Characters 128 to 255 


This program by Lance Vick enables you to reproduce the Master’s extended character 
set on a model B, and to download it to a printer. 


Many printers have printable characters in the 
ASCII range 128-255. Often this range consists 
of an italicised version of the normal set (32- 
126); sometimes it contains the standard IBM 
character set; and some printers can be 
switched between the two. 


Master series computers have an entirely 
different set of characters in this range. If you 
type in the following line you will see them 
displayed on the screen: 


FOR A$-128 to 255:P.;A$"  "CHRSAS:N. 


It can be useful to have a program which will 
print this character set on a printer, and the 
listing given here is designed to do just that. It 
is called WYPIWYS (What You Print Is What 
You See), and should work with any Epson- 
compatible printer which has the facility to 
download character definitions into the 
printer's memory (normally using the control 
sequence ESC "&"). Unfortunately an exact 
match is not possible as the Master set uses an 
8x8 matrix for each character, whereas those in 
the printer are arranged in an 8x11 matrix, but 
with the requirement that adjacent points in 
any row cannot be printed. 


BBC MODEL B 

The model B does not have the extended 
character set of the Master, but in its default 
state it is possible for characters 128-159 to be 
user-defined, using the VDU23 statement (see 
the User Guide). Characters 160-255 can also be 
defined, by allocating extra RAM in chunks of 
one page (of 256 bytes) for each block of 32 
character definitions. This requires the value of 
PAGE to be increased, so there has to be a 
trade-off between memory usage and the 
number of characters you define. 


The WYPIWYS program includes a procedure 
(PROCdefineB) and a set of DATA statements 
which re-define all the characters from 128 to 
255 on a model B to be the same as on a Master. 
However, you can choose how many characters 
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to re-define to suit your own requirements. 
Each DATA statement contains 2 character 
definitions, in the form of an 8-byte hex string, 
starting at characters 128-129 in line 1610. The 
fewer characters you define, the fewer lines 
you have to type in! Simply alter last% in line 
140 to the highest character to be defined, and 
include the appropriate number of DATA 
statements when you type in the listing. Then 
before loading the program set the value of PAGE 
as follows: 


last$-159 no alteration to PAGE 
last%=191 PAGE=PAGE+&100 
last 3=223 PAGE=PAGE+&200 
last %=255 PAGE=PAGE+& 300 


When the characters have been defined, 
PROCmodelBtest displays them on the screen. 
Master owners need not type in these two 
procedures, or the DATA statements! 


Characters 128 to 191 are now:- 


CHR$(128) = # 
CHR$(132) = É 
CHR$(136) = + 
CHRS(148) = à 
a 
é 
1 
ü 


CHR$CI31) 
CHR$(135) 


CHR$(129) 
CHR$(133) 
CHR$CI37) 
CHRS(141) 
CHR$CIAS) 
CHRS(149) 
CHRS(153) 
CHRS(157) = ў 
CHRS(161) = 
CHRS(165) = 
CHRS(169) = 
CHRS(173) = 
CHRS(177) 


CHRS(138) = Е 
CHRS(134) = ü 
CHRS(138) = $ 
CHRS(142) = ë 
a 
ü 
Š 
й 


CHRS(144) = CHRS(146) CHRS(147) 
CHR$(151) 
CHR$(155) 
CHR$(159) 
CHR$(163) 
CHR$(167) 
CHR$(171) 


CHR$(175) 


CHR$(148) = 
CHR$(152) = 
CHRS(156) = 
CHRS(168) = 
CHRS(164) = - 
CHR$(168) =! 
CHRS(172) = 4 
CHRS(176) = ¢ 
CHRS(188) = i 
CHRS(184) = f 
CHRS(188) = g 
› 


CHRS(158) 
CHRS(154) 
CHRS(158) = 
CHRS(162) = - 
CHRS(166) = - 
CHRS(178) = + 
CHRS(174) = + 
CHRS(178) = ` 
CHRS(182) = Ñ CHRS(183) = 

Ë CHRS(187) = ` 

4 CHRS(191) =й 


CHRS(185) = 
CHRS(189) =. 


CHRS(186) = 
CHRS(198) = 


Part of the Master's extended character set 
reproduced on a model B 


One instance in which this program may be useful 
is when printing out program listings which 
contain teletext control characters. These are 
sometimes used in REM statements, or in PRINT 
statements where insertion of a control character, 
by using Shift or Ctrl with a function key, is easier 
than typing in, say, ‘CHR$129’. Normally when 
such listings are printed the results can be chaotic, 
with form feeds, carriage returns and other 
control codes being sent to the printer. 
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PROGRAM OUTLINE 

PROCsetup first sends the appropriate codes to 
the printer to notify it that characters are to be 
downloaded. It then repeatedly calls 
PROCreadchar for each character, which reads 
the character definition using OSWORD 10 and 
translates it from the horizontal bit-pattern 
supplied into the vertical bit-pattern required 
by the printer. The character is then 
downloaded to the printer before calling 
PROCreadchar for the next one. 


When all the characters have been downloaded, 
PROCtest causes the printer to print out all the 
characters from 128 to 255 twice; firstly the 
original character from the printer’s own set, 
and secondly the newly-defined character. 


PROCdefineB first makes a *FX20 call, with X 
set to 0,1,2 or 3 depending on the number of 
characters to be defined. The procedure then 
simply unpacks the hex strings in the DATA 
statements, and uses VDU23 to re-define the 
characters. 
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10 REM Program WYPIWYS 

20 REM Version B1.0 

| 30 REM Author Lance Vick 

40 REM BEEBUG March 1990 

50 REM Program Subject to copyright 


100 MODE3 
110 ON ERROR: VDU3:WIDTHO: REPORT: PRINT" 


at line ";ERL:END 
120 master=(INKEY (-256)-253) 
130 first$-128:1ast$-255 


150 IF NOT master:PROCdefineB 
160 IF NOT FNonline:PROCswitchon 
170 PRINT'"WYPIWYS or"''"What You Prin 
it Is What You See"' 
180 PROCsetup:PROCtest 
190 END 
200 : 
1000 DEF PROCsetup 
1010 PRINT'"Redefining Characters 128 t 
о ";last$ 
1020 VDU2,1,27,1,&3A,1,0,1,0,1,0 
1030 VDU1,27,1,&36 
1040 VDU1,27,1,&26,1,0,1,first$,1,1ast? 
1050 D%=&70:B%=&79 
1060 X$-D£MOD256:Y$-D$DIV256:A$-10 
1070 FOR C%=first% TO last$ 
| 1080 Үр01,88В | 
| 1090 PROCreadchar (C$) 


140 IF NOT master:last%=255 | 


Printing Characters 128 to 255 


| 1100 VDU1, (B$?0 ORB$?1),1,0,1,B%?2,1,0, 
1, (B3?3 OR B£?4),1,0,1,B$?5,1,0,1,B2?6,1 
,0,1,B%?7 

1110 NEXT: VDU3:ENDPROC 

1120 : 

1130 DEF PROCreadchar (1%) 

1140 ?D$-I$:CALL &FFF1 

1150 FOR N$-7 TO 0 STEP-1 

1160 V$-0:P$-2^N$ 

1170 FOR M$-0 TO 7 

1180 V$-V$-2^M$*((D$?(8-M$) AND Р%)>0) 

1190 МЕХТ:В%? (7-N$) -V$ 

1200 NEXT:ENDPROC 

41210 * 

1220 DEF PROCtest 

1230 VDU2:WIDTH80 
| 1240 PRINT'"Characters 128 to ";last% 
| 1250 PRINT"First Character is from Prin 
|ter's ROM"' 

1260 PRINT"Second Character is Redefine 

(4 version"' 
| 1270 FOR C%=first% TO last% 
| 1280 PRINT"CHRS (";C$") ="; 

1290 FOR I$-0 TO 1 

1300 VDU1,27,1,&25,1,1$,1,0 

1310 PRINTCHRS (C£) SPC3; 

1320 NEXT:NEXT 

1330 PRINT:VDU3:WIDTHO 

1340 ENDPROC 

1350 % 

1360 DEF PROCdefineB 

1370 RESTORE 

1380 FOR C%=first% TO last%:VDU23,C% 

1390 READ A$:FOR I$-0 TO 7 

1400 VDU EVAL ("&"4MID$ (A$, 1*2+1, 2) ) 

1410 NEXT:NEXT 

1420 PROCmodelBtest 

1430 ENDPROC 

1440 : 

1450 DEF PROCmodelBtest 

1460 PRINT'"Characters 128 to "STR$last 
$" are пом:-"' 

1470 FOR C$-first$ TO last$ 

1480 PRINT"CHR$(";C$") = "CHR$(C$)SPC7; 

1490 NEXT:ENDPROC 

1500. ; 

1510 DEF FNonline:*FX21,3 

1520 VDU2, 15 0717073. 

1530 =(ADVAL-4=63) 

1540 : 

1550 DEF PROCswitchon | 

1560 REPEAT:PRINT'"Printer not on-line" 

1570 PRINT'"Switch on and press Space" 5 

1580 REPEAT UNTIL GET=32 

1590 UNTIL FNonline:ENDPROC 
| 1600 : 

1610 DATA 66003C667E666600, 3C663C667E666600 
1620 DATA 3F66667F 66666700, 3C66606060663C60 
| 1630 DATA 0C187E607C607E00, 663C666666663C00 | 

| 
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st 
by Mike Williams 


-Course Last month I outlined 

some of the ways in 
which you can improve your programming in 
Basic, and I dealt at some length with two 
examples. The first was concerned with 
enhancing the interface between the program 
and the user - making the screen display more 
slick and professional where input is 
concerned. The second example was concerned 
with redundancy, and I want to consider that 
further this month. 


By redundancy I mean locating areas within a 
program which can be written more concisely 
than might at first seem possible. The example 
which I discussed last time showed how a 
sequence of IF statements can often be reduced 
to a single such statement, provided that the 
conditions involve testing the same variable 
each time. Of course, condensing a program in 
this way may result in something which is less 
readable, where the original intention (i.e. the 
set of individual tests) has become obscured, 
but the concept is well worth remembering, and 
if a program is tight on memory space well 
nigh essential. 


When compiling the Postbag page for this issue, 
I was reminded of another technique which is 
far from obvious. The letter, if you want to refer 
to it, shows a method for defining a ‘plus-or- 
minus’ sign, as well as correct pound (£) and 
hash (#) signs for a printer. In this case, a FOR- 
NEXT loop easily copes with the requirements, 
but what if you have a similar repetitive pattern, 
but one which is not quite so regular? 


Suppose, as an example, we want to output to a 
printer in graphics mode, rather than in plain 
text. To do this, it is necessary to send codes to 
the printer which say we are printing graphics 
(Escape-K, where K has ASCII code 75), how 
many bytes of information are to follow (as two 
bytes п1 and n2), and then the bytes 
themselves, for example: 


VDU1,27,1,75,1,11,1,0, 1,135, 1, 140, 1,100, 
1,54,1, 30, 1,40,1,0,1,54,1,0,1,40, 1,0, 1,13, 1, 10 
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Үр01,27,1,15,1,10,1,0,1,196,1,110,1,112, 
1,16,1,14,1:22,1,30,1,26,21,130,1,68,1,13,1,10 
VDU1,27,1,75,1,10,1,0,1,182,1, 120, 1, 100, 
1,34,1/34,1,34,1,250, 10,34, 1,34, 1, 34,1, 13, 1, 10 


Don't worry about the precise effect of this - it 
is unimportant as far as this article is 
concerned. Note the alternate '1' in all three of 
the above statements. In a VDU instruction, this 
ensures that the following value is sent only to 
the printer, not to the screen as well. Printing 
graphics (and on other occasions) can involve 
values which, if output to the screen, would 
have undesirable effects. 


Be that as it may, it seems a bit of a waste to 
specify each '1' individually. Why not, I 
thought, have a loop which we go round three 
times, once for each VDU statement, inside 
which we have another loop which reads the 
relevant codes from a DATA statement, and 
sends them to the printer. Thus a simple 
instruction like: 

READ C$ 

VDU1,C$ 
could do all the work. 


As a further refinement, we can see that each 
VDU statement begins with the sequence 
‘1,27,1,75’ - which sends ‘Escape-K’ to the printer 
- so why bother putting that in with the other 
data; why not put it in the program? We can 
treat similarly the 1,13,1,10 (carriage return, line 
feed) which occurs at the end of each line - to 
move the printer to the start of the next line. In 
principle, our revised routine will look like this: 


FOR 1%-1 TO 3:VDU1,27,1,75 

FOR J$-1 TO 13 

READ C%:VDU1,C% 

NEXT J$:VDU13,10:NEXT I$ 

DATA 11,0,135,140,100,54,30,40,0,54,0,40,0 
DATA 10,0,196,110,112,16,14,22,30,16, 130, 68 
DATA 10,0,182,120,100,34,34,34,250,34,34,34 


Of course, you may argue (and perhaps rightly) 
that the original version was much simpler, and 
easier to understand. I don't disagree, in this 
case, but it is the idea which is important. 
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However, if you look at the original VDU 
statements, you will see that the first contains 
13 values to be sent to the printer (after the 
initial codes 27,75), while the other two each 
have 12 values. So our inner loop, in which the 
variable J% counts from 1 to 13 will be wrong 
for the second two VDU statements. 


That might suggest that all our clever ideas will 
come to naught. However, that is not so, and 
although we have taken a little while to reach 
this point, it is the crux of what I am talking 
about. Suppose we want the FOR-NEXT loop 
which uses J% to count from 1 to 11 the first 
time and from 1 to 10 each of the other two 
times. How can this be accomplished? 


The solution depends upon the fact that on any 
BBC computer the values of TRUE and FALSE 
are represented by the values -1 and 0 
respectively. Thus although we may think of a 
condition like ‘I%>1’ as being either true or 
false, it also has a value of either -1 or 0, and 
that value can be used as such. For example we 
could write: 
13+(1%>1) 

This would have the value 13 (if I% is not greater 
than 1, so that 1%>1/ is false with a value 0), or 
12 (if 1%>1' is true with a value of -1). 


This is just what we need in the example 
described above, so we must replace the second 
line of the routine with: 
FOR J$-1 TO 13+(1%>1) 

This idea of using the value of a condition as 
part of an expression is one that is well worth 
knowing, so we'll look at another example 
before we finish. 


Suppose you are writing a graphics program 
which is to display a small cross on the screen 
(representing the current position), which is to 
be moved using the cursor keys. We will make 
the cross 16 graphics units high and 16 graphics 
units wide (remember, the graphics screen is 
1280 units horizontally (from 0 to 1279), and 
1024 vertically (from 0 to 1023). 


To make the cross appear to move, according to 
the pressing of the cursor keys, we will need to 
use Exclusive OR plotting, drawing the cross 
once to make it appear, drawing it a second time 
to make it disappear, and then redrawing it in a 
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new position. We will also assume that we start 
from the centre of the screen. In outline, the 
routine will look something like this: 

*FX4,1 

GCOL 3,1 

Х%-640:Ү%-512 

КЕРЕАТ 

PROCcross (X$, Y%) 

PROCmove 

PROCcross (X%, Y%) 

UNTIL FALSE 


The *FX call disables cursor editing and causes 
the cursor keys to generate ASCII codes (136 for 
left, 137 for right, 138 for down and 139 for up). 
The GCOL statement selects the colour for 
plotting (this is the second value - the result 
will depend on the mode used, but see later), 
while the first value of 3 selects Exclusive OR 
plotting (I won’t explain the precise details of 
this; just accept that it does what I say). The 
program then sets X% and Y% to the agreed 
initial values. 


We then have a REPEAT-UNTIL loop involving 
three procedure calls (the procedures have yet 
to be written). PROCcross draws a cross on the 
screen. The first time it is called the cross will 
appear, the second time it will disappear, and 
so on. The procedure PROCmove checks to see 
if a cursor key has been pressed and updates 
X% and Y% accordingly. 


Incidentally, this approach to programming is a 
well recognised technique in its own right. Get 
the broad outline of the program written first, 
using procedure or function calls where 
necessary to gloss over the smaller detail you 
don’t want to bother about yet. When you are 
satisfied that all is well, start looking at those 
procedures, writing the definitions in more 
detail. 


Now back to our own program, and before we 
proceed to fill out the two procedures, there is 
an anomaly that must be taken care of. The 
second call to PROCcross is intended to remove 
the cross from the screen by re-drawing it in its 
original position. But PROCmove may have 
already updated the values of X% and Y% to 
reflect a new position. We need to introduce 
two additional variables, which I will call 
oldX% and oldY% to remember the previous 
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values of X% and У%. The main loop will; now 
look as follows: 
REPEAT 
PROCcross (X%, Ү$) :01dX$-X$:01dY$-Y$ 
Р PROCmove 
PROCcross (01dX%, ol dY%) 
UNTIL FALSE 


Now we can proceed. First of all PROCcross 
can be written as follows: 

DEF PROCcross (X$, Y%) 

MOVE X%-8,Y%:DRAW Х%+8:Ү% 

MOVE X$,Y$48:DRAW X$,Y$-8 

ENDPROC 
This really needs no further explanation. Now for 
the second procedure, and this is where the idea 
that I described previously will come into play. 
First of all we need to decide something else. 


Although the graphics screen runs from 0 to 
1279 horizontally and 0 to 1023 vertically, we 
cannot literally move one graphics unit at a 
time. There is always a minimum step size 
which depends on the mode in use. If you 
specify a smaller step size than is possible on 
the visible screen, you just stay where you are. 
The vertical step size is always 4. The horizontal 
step size can be 2 (mode 0), 4 (modes 1 and 4) or 
8 (modes 2 and 5) - the other modes are not 
graphics modes anyway. We will assume we are 
using either mode 1 or mode 4, so that the 
minimum step size is 4 in both directions. If you 
are using a different mode then adjust the 
horizontal step size in what follows. 


The most obvious way of coding PROCmove is 
as follows: 
DEF PROCmove 
5%-СЕТ 
ТЕ 5%-136 ТНЕМ Х% 
ІЕ 5%-137 ТНЕМ Х% 
ІҒ 5%-138 ТНЕМ Ү%- 
IF 5%-139 THEN Ү%-Ү%% 
IF Х%<0 THEN Х%-0 
IF Х%>1276 THEN Х%-1276 
ІЕ Ү%<0 ТНЕМ Ү%-0 
ТЕ Ү%>1020 ТНЕМ Ү%-1020 
ENDPROC 


Х%-4 
X$44 
Y$-4 

4 


Perhaps you were initially surprised by the last 
four IF statements, but we have to make sure 
that the centre of our cross remains on the screen 
(you might, of course, want to have a more 
restricted screen area). The reason for 1276 (not 
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1279) derives from the fact that, moving in steps 
of 4, the highest value we can reach that is on the 
screen is 1276. Similarly, the highest on-screen 
value of the y screen co-ordinate is 1020. 


Now let's see how the first two statements 
might be rewritten using the numerical value of 
the test condition: 
Х%-Х%%4%(5%-136)-4%(5%-137) 
and similarly for Ү%: 
Y$-Y$44* (5%=138) -4* (5%=139) 
Remember that only one value for 5% is 
possible at any one time. If you are not sure 
about these two lines, try each possible value of 
5% in turn, substituting 0 or -1 as appropriate 
for each condition. For example, if 5%=136 
(cursor left), then the first line becomes: 
X$-X$44* (-1) -4* (0) 
ie. %-Х%-4-0 
Шив: Х%-Х%-4 


So far so good, and if some other key should be 
pressed on the keyboard, then our revised (and 
original) version will ensure that the values of 
X% and Y% remain unchanged. 


However, we can take the idea of using logical 
values even further. No matter how long a 
logical condition becomes, the resulting value is 
always either -1 or 0. So we can incorporate the 
last four IF statements into our revised first two 
lines as follows: 


Х%-Х%44%(5%-136 AND Х%>0)-4%(5%-137 AND 
$«1276) 

Y$-Y$44*(S$-138 AND Ү%>0)-4%(5%-139 AND 
Y$«1020) 


When AND is used to join two conditions 
together, the result is true only if both of the 
individual conditions are true (-1); in all other 
cases the final result is false (0). Again, I suggest 
you try evaluating either expression above in 
particular cases to verify their validity. 
Moreover, we have reduced our original eight 
lines to a mere two (albeit longer), not bad eh? 


Using conditions as values can take a bit of 
getting used to, but it can streamline your 
programs as I have shown, and is the kind of 
‘trick’ that can make you feel quite satisfied 
when you can put it to good use, even if the 
new version is sometimes less readable. В] 
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Bill Hine continues the development of a programmer's toolkit ROM for use with Basic 
programs. EDIKIT3 adds five more commands to the EDIKIT ROM. 


ENTERING THIS MONTH'S PROGRAM 
There are some differences between the Basic II 
(on the model B) and Basic IV (Master) versions 
of this program. Note the address of insline in 
lines 1030 and 1040; &BC8D for Basic П and 
&BAEB for Basic IV. Line 4200 should be 
omitted if you are going to run the program 
with Basic IV; the whole of the routine tokline 
(lines 4590 to 4660) is also unnecessary with 
Basic IV. Where appropriate, substitute your 
own SWR commands in lines 170 and 180. 


Save this month's program as EDIKIT3. Before 
running it, ensure that the ROM image from 
parts 1 and 2(Edirom &8000 to &9240) is 
already loaded in a vacant sideways RAM slot, 
and that in lines 170 and 180 you replace 'X' by 
the same slot number (as last month). When 
you run EDIKIT3 answer Y to the prompt 
"SAVE and LOAD ROM?"; Edirom3 will be 
overlaid in slot ‘X’ from &9200 to &9630 and 
the accumulated ROM from &8000 to &9830 
will be re-saved as Edirom. Now press Ctrl- 
Break to initialise the ROM. *H. EDIKIT should 
print a list of commands and their formats. 


USING THE NEW COMMANDS 
*LFROM «element» lists eight lines of 
program beginning with the first occurrence of 
the specified element. An element of Basic is a 
name (of a variable, function or procedure), a 
Basic keyword, a numeric value, a quote string, 
an OS star command, or an assembler label, 
opcode or operand. All the rules about 
wildcards and abbreviations which apply to 
*FBASIC also apply to *LFROM; for further 
details see the notes on EDIKIT2 in the last 
issue of BEEBUG Magazine (Vol.8 No.8). At the 
end of the eight lines, you may choose either to 
continue listing more of the program (press 
Shift), or to start again at the next occurrence of 
the specified element (press Tab). You may quit 
by pressing Escape. This command can be very 
useful for listing FOR loops, for example; just 
enter *ГЕЕ (note the abbreviations of *LFROM 
FOR). 


*LPROC «procname» (which may be shortened 
to *LP.<procname>) lists the named procedure 
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starting at the line in which the DEFPROC 
occurs and ending at the first ENDPROC. 


*LFN «fnname» (no abbreviation) lists out the 
function with the specified name. 


*RTEXT /<string1>/<string2>/ and *RBASIC 
«element1»/«element2» аге find and replace 
commands directly analogous to FTEXT and 
FBASIC. The commands may be abbreviated to 
*RT. and *RB. Both look for occurrences of the 
first parameter, and print out in turn each line 
which contains it. A pointer indicates the last 
letter of the target word so that multiple 
occurrences in one line will not be confused. 


You are offered the option of replacing the first 
parameter with the second (press R), skipping 
over the current instance (press S), or aborting 
the run by pressing Escape. If you choose to 
make the substitution, the amended line is 
printed again enabling you to check that the 
desired effect has been achieved. Note that the 
slash character is the normal delimiter for the 
two parameters of RTEXT, but any other 
character may be used as a delimiter (as for 
FTEXT) so long as that character occurs three 
times; otherwise an error will be signalled. The 
use of three delimiters means that initial or final 
spaces may be included in either parameter. 
Note that the parameters to RBASIC are also 
separated by a slash character but this may not 
be varied; any leading or trailing spaces are 
omitted. 


Parameters to RBASIC may consist of any 
element of Basic as defined in the discussion of 
EDIKIT2. Keyword abbreviations may be used 
but the star wildcard is not allowed; an error 
message will be printed if you try. To substitute 
one line number for another (following GOTO 
etc.) you need only use the ^ character as a 
marker in the case of the first parameter. Thus 


*RB.^2000/3300 will replace the line number ` * 


2000 with 3300. 


Attempts to call any of the remaining 
commands (VARLIST, SYSVARS, FKDEFS, 
PCOMM ... ZCOMM) will result in a "Not 
implemented" message at this stage. 
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REM Program EDIKIT3 
REM Version 1.01 
REM Author Bill Hine 
REM BEEBUG March 1990 
REM Program subject to copyright 


MODE 7 
start=&9200:size=&600:DIMcode &630 
PROCinitvars:PROCassemble 
PROClinks 

PRINT"SAVE and LOAD ROM? Y/N" 
А=СЕТ AND&DF:IFA«»ASC"Y"THENEND 
OSCLI("SAVE edirom3 "+STR$~codet"+ 


"+STRS$~ (0$-code) ) 


170 

180 

190 

200 

210 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 


1340 : 
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*SRLOAD edirom3 9200 X 

*SRSAVE edirom 8000 9830 X 
PRINT"Press CTL BRK to initialise" 
END 


DEF PROCinitvars 
ipbuff-&600:ipbuff2-&680 
buffer-&700 

insline=&BC8D:REM BASIC II 

REM -&BAEB:REM BASIC IV 
page-&1D:top-&12:commandln-&F2 
nl-&0D:cr-nl:rem-&F4:def-&DD 
proc-&F2:endproc-&El:fn-&A4:if-&E7 
else-&8B:quote-ASC"""":spc-ASC" " 
esck-&8F:tabk-&9F:shiftk-&FF 


oswrch-&FFEE:osnewl-&FFE7 
osbyte=&FFF4 : osword=&FFF1 
oswrch-&FFE3:osrdch-&FFEO 
romexit-&8803:escexit-&8806 
initscanft-&8809:scanprog-&880C 
detokline-&880F:prntline-&£8812 
prnttext-&8815:notimp-&8818 
initbptr-&881B:initpptr-8&881E 
reinitbptr-&8824:prnteoprog-&882A 
initscanfb-&8C3F:initscanfkw-&8C42 
ipbasparam-&8C45:testdelim-&8C48 
testopcode-&8C4B 


flags-&70:ay-&71:ex-&12:wy-&73 
strlen=&74:str2len=&75 : token=&76 
tokn-877:hitokn-&78:starttokn-&79 
endtokn-&7A:bptr-&80:pptr-&84 
scantype-588:action-&8A 
ipdelim-&8C:diff-&8D:width-8&8E 
scrollmode=&8F 

ENDPROC 


DEF PROCassemble 


FOR pass=4 TO 7 STEP3 
P%=start :0%=code: [ОРТ pass 


.proccalls 
1390 JMP lfrom:JMP lproc:JMP lfn 

1400 JMP rbasic:JMPrtext 

.sysinf JMP &9800:.varlist JMP &98 


.fkdefs JMP &9806:.pcomm JMP &9809 
.qcomm JMP &980C:.rcomm JMP &980F 
.5сошп JMP &9812:.tcomm JMP &9815 
.ucomm JMP &9818:.vcomm JMP &981B 
.Wwcomm JMP &981E:.xcomm JMP &9821 
.ycomm JMP &9824:.zcomm JMP &9827 


.lfrom 
1500 JSR svscrollmode:LDA£0:STA flags 
1510 JSR ipbasparam:JSR initbptr 

1520 LDA#lfrnextmatch MOD256:STAaction 
1530 LDA#1frnextmatch DIV256 

1540 STAactiont1:JSR initscanfb 

1550 JSR testopcode 

1560 JSR scanprog:JSR prnteoprog 

1570 LDA scrollmode:JSR oswrch 

1580 LDA#15:LDX#1:JSR osbyte:JMPromexit 


1600 .lfrnextmatch 

1610 LDAbptr:PHA: LDAbptr+1:PHA:TYA:PHA 
1620 JSR prnttext 

1630 EQUS"ESC:quit":EQUB spc:EQUB spc 
1640 EQUS"TAB:next match":EQUB spc 
1650 EQUB spc:EQUS"SHIFT:more":EQUW nl 
1660 LDX#8:JSR lfrlistlp 

1670 PLA: TAY:PLA:STAbptr+1:PLA:STA bptr 
1680 JSR detokline:RTS 


.lfrlistlp 

1710 TXA:PHA:JSR ptbasline:PLA:TAX 
1720 JSR reinitbptr:LDY#1:LDA(bptr) ,Y 
1730 CMP#&FF:BEQ lfroptns2 

1740 DEX:BNE lfrlistlp:JSR lfroptns 
1750 BEQlfrexit:LDX48:JMP lfrlistlp 


1760 .lfrexit RTS 
EY) TE 
1780 .lfroptns .ktloop 


1790 LDX#esck:JSR keytest :CPX#&FF 

1800 BEQ escpress:LDX#tabk:JSR keytest 
1810 CPX#&FF:BEQ tabpress:LDX#shiftk 
1820 JSR keytest:CPX#&FF:BNE ktloop 
.shiftpress LDA#1:RTS 

.tabpress LDA#0:RTS 

.escpress JMP escexit 

.lfroptns2 
JSR prnttext 
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1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
| 2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 


EQUS"End of prog - ESC:quit " 
EQUS" TAB:next match":EQUWnl 
.ktlp2 

LDX#esck:JSR keytest :CPX#&FF 
BEQ escpress:LDX#tabk:JSR keytest 
CPX#&FF :BEQ tabpress:JMP ktlp2 
-keytest 

TXA: PHA: LDA#&81: LDX#2 : LDY#0 
JSR osbyte:PLA: TAX 
LDA#&81:LDY#&FF:JMP osbyte 
.Svscrollmode 

LDA#&75:JSR osbyte 
TXA:AND#4:LSRA:LSRA:STA ex 
LDA#15:JSR oswrch 

SEC:SBC ex:STA scrollmode 

RTS 


.lproc 

LDA#proc:STA starttokn 
LDA#endproc:STA endtokn 
JSR lprocfn:JMP romexit 


EG 

LDA#fn:STA starttokn 
LDA#ASC"=":STA endtokn 
JSR lprocfn:JMP romexit 


.lprocfn LDA#0:STAflags 
JSRipbasparam: JSRinitbptr: LDA#def 
STAtokn:STAhitokn:JSR initscanfkw 
LDA#checkpf MOD256:STA action 
LDA#checkpf DIV256:STA actiont+1 
JSR scanprog 

.lpfexit 

RTS 

.checkpf 

LDA(bptr),Y 

CMP starttokn:BEQ checkname 
CMP#spc:BNE lpfexit 

INY:JMP checkpf 

.checkname 

INY:LDX40:LDA(bptr),Y 

CMP ipbuff,X:BNE lpfexit 
.chkname2 

INX:INY 

LDA ipbuff,X:CMP$nl:BEQ chkname3 
CMP (bptr),Y:BEQ chkname2 

JMP lpfexit 

.chkname3 

LDA (bptr),Y:DEY 

JSR testdelim:BNE lpfexit 
.namesmatch 

INY:LDA(bptr),Y 

CMP#spc:BEQ namesmatch 


2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 


29501 


CMP£ASC"(":BEQ brackets 
CMP#n1:BEQ nextline 

CMP endtokn:BEQ nmexit 
CMP#ASC":":BEQ newstatemt 
JMP newstatemt+1 

.nmexit RTS 

-newstatemt 
INY:LDA(bptr),Y 
CMP#spc:BEQ newstatemt 
CMP endtokn:BNE restofstmt 
JMP ptbasline 

.restofstmt 

CMP#n1:BEQ nextline 
CMP#ASC":":BEQ newstatemt 
CMP#if:BEQ ifloop 
INY:LDA(bptr),Y:JMP restofstmt 
.brackets 

LDX#0 

.braklp 

INY:LDA(bptr),Y 
CMP#n1:BEQ nextline 
CMP#ASC")":BEQ newstatemt 
CMP #ASC" (":BNE braklp:INX 
.braklp2 

INY:LDA(bptr),Y 
CMP#n1:BEQ nextline 
CMP#ASC"(":BEQ braklp2-1 
CMP#ASC")":BNE braklp2 
TXA:DEX:BNE braklp2 

JMP braklp 

.nextline 

JSR ptbasline:INY:LDA(bptr),Y 
CMP#&FF :BEQ eoprog:JSRreinitbptr 
BIT&FF:BMI lpfesc 
LDY#3:JMP newstatemt 
.eoprog RTS 

-lpfesc JMP escexit 
.ifloop 

INY:LDA(bptr),Y 
CMP#n1:BEQ nextline 
CMP#ASC":":BEQ newstatemt 
CMP#else:BEQ newstatemt 
JMP ifloop 


.rbasic 

LDA#0:STA flags 

JSR iprbparams:JSR chekwild 
JSR initbptr 

LDA#options MOD256:STA action 
LDA#options DIV256:STA actiontl 
JSR initscanfb:JSR testopcode 
JSR scanprog:JSR prnteoprog 
JMP romexit 
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2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
| 3260 
| 3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
| 3460 
| 3470 

3480 
| 3490 


x 


.iprbparams 
LDA(command1n) , Y: LDX#0:CMP#ASC"*" 
BEQ initlnnoflag:CMP#spc 
BNEiprbploop: INY: JMP iprbparams 
.initlnnoflag 
LDAflags : ORA#4:STAflags: INY 

JMP iprbparams 

.iprbploop 

LDA(commandln),Y:STA ipbuff,X 
CMP#n1:BEQ rberr:CMP#ASC"/" 

BEQ trspcloopl:INY:INX:CPX4128 
BEQtoolong:JMP iprbploop 
.trspcloopl 

DEX:LDA ipbuff, X:CMP#spc 

BNE iprbp2:JMP trspcloopl 

.iprbp2 

INX: LDA#cr:STA ipbuff,X:TXA 

BEQ rberr:STA strlen: INY 
.rbploop2 

LDA (commandln),Y:LDX$0:INY 
CMP#ASC"*":BEQ rbploop2:CMP#spc 
BEQ rbploop2:DEY:JMP iprbp2loop 

. iprbp2loop 

LDA(commandln),Y:STA ipbuff2,X 
CMP#n1:BEQ trspcloop2:INY:INX 
CPX#128:BEQ toolong:JMP iprbp2loop 
.trspcloop2 

DEX:LDA ipbuff2,X:CMP#spc 

BNE iprbpexit:JMP trspcloop2 
.iprbpexit INX:LDA#cr:STAipbuff2,xX 
STXstr2len:RTS 

.rberr 

LDX#0:LDA#104:JMP errexit 
.toolong 
LDA#106: LDX#t ltext-detext 

JMP errexit 


.chekwild 

JSR initpptr:JSR scanwild 
JSR initpptr2:JSR scanwild 
.Swexit RTS 

.Scanwild 
LDY40:LDA (pptr) , У: CMP#quote 
BEQ swexit:CMP#n1:BEQ swexit 
.Scanwlp 

INY: LDA(pptr) , ¥:CMP#n1 

BEQ swexit:CMP#ASC"*" 

BEQ swerr:JMP scanwlp 
.Swerr 

LDA#105: LDX#wetext-detext 
JMP errexit 


.rtext 
JSR iprtparams 


3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 


| 3680 


3690 : 


3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3860 


| 3870 


3880 
3890 
3900 
3910 
3920 
3930 


| 3940 


3950 
3960 
3970 
3980 
3990 


‚ 4000 


4010 
4020 
4030 


JSR prnttext:EQUS"Replace ":EQUBO 
LDAipdelim:PHA:JSR oswrch 

JSR initpptr:LDY#0:JSR ptrtextlp 
PLA:PHA:JSR oswrch:JSR osnewl 
LDX#3:JSR spaces:JSR prnttext 
EQUS"with ":EQUBO:PLA:PHA 

JSR oswrch:JSR initpptr2:LDY40 
JSR ptrtextlp:PLA:JSR oswrch 
JSRosnewl:JSRosnewl:JSRreplacetxt 
JMP romexit 

.ptrtextlp LDA(pptr) , ¥:CMP#nl 
BEQ ptrtexit:JSR oswrch: INY 

JMP ptrtextlp:.ptrtexit RTS 


.replacetxt 

JSR initbptr:JSR initscanft 
LDA#options MOD256:STA action 
LDA#options DIV256:STA action+1 
JSR scanprog:JMP prnteoprog 


.iprtparams 

LDA (commandln), Y: INY 

CMP#spc:BEQ iprtparams 

CMP#n1:BEQ rtperr 

STA ipdelim:DEY:LDX#&FF 
.rtparamslp 

INY: INX:CPX#128:BEQ twolong 

LDA (command1n) , Y 

CMP#n1:BEQ rtperr 

CMP ipdelim:BEQ plfin 

STA ipbuff,X:JMP rtparamslp 

.plfin 

LDA#&0D:STA ipbuff,X:STX strlen 
LDX#&FF 

.rtparamlp2 

INY:INX:CPX#128:BEQ twolong 

LDA (commandln),Y:CMP#nl:BEQ rtperr 
CMP ipdelim:BEQ p2fin | 
STA ipbuff2,X:JMP rtparamlp2 | 
.p2fin 

LDA#cr:STA ipbuff2,X 
STX str2len:RTS 
.twolong 

JMP toolong 

Jftperr 

JMP rberr 


.options 

TYA:PHA:JSR prntline:JSRpointer 
LDX#5:JSR spaces:JSR prnttext 
EQUS"(R)eplace (S)kip ESC:quit" 
EQUW spc 

JSR osrdch:BCS optesc:AND#&DF 
JSR oswrch:PHA:JSR osnewl:PLA 


Beebug March 1990 


PONCII E owe ee Е 


EdiKit 


4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 


4250 : 


4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 
4390 
4400 
4410 
4420 
4430 
4440 
4450 
4460 
4470 
4480 
4490 
4500 
4510 
4520 
4530 
4540 
4550 
4560 


CMP#ASC"R":BEQ doreplace 
CMP#ASC"S":BEQ optexit : LDA#7 
JSR oswrch:PLA:TAY:JMP options 
-optexit 

JSR osnewl:PLA:TAY:RTS 

.optesc 

JMP escexit 

.doreplace 

LDA str2len:SEC:SBC strlen 
JSR movertn 

LDAex:SEC:SBC strlen: TAY: LDX#0 
.doreplp 

CPX str2len:BEQ drexit 

LDA ipbuff2,X:STA buffer,Y 
INY:INX:JMP doreplp 

.drexit 

JSR tokline ; BASIC II only 
JSR insertline:JSR detokline 
JSR prntline:LDA tokn:BNE optexit 
PLA:CLC:ADC diff:TAY:JSR osnewl 
RTS 


.pointer 
LDA&30A:SEC:SBC&308:STAwidth 
INC width:LDXex:DEX:TXA 
.ptrmodlp 

CMPwidth:BCC prntptr 
SEC:SBCwidth:JMP ptrmodlp 
.prntptr 

TAX:JSR spaces 

LDA#ASC"*": JSRoswrch:JMP osnewl 


.movertn 

STA diff:BEQ mvrtnexit 

BPL up:JMP down 

.mvrtnexit RTS 

.down 

LDAex:TAX:CLC:ADC diff:TAY 
.movedn 

LDA buffer,X:STA buffer,Y 
CMP#n1:BEQ movednexit 
INX:INY:JMP movedn 
.movednexit RTS 

-up LDXex 

.movetoeoline 

LDA buffer,X:CMP£nl:BEQ destindex 
INX:JMP movetoeoline 


.destindex 

TXA:CLC:ADC diff: TAY 

.moveup 

LDA buffer,X:STA buffer,Y:CPX ex 


BEQ moveupexit:DEX:DEY:JMPmoveup 
.moveupexit RTS 


4570 : 


4580 


N Lines 4660-4730 BASIC II only 
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4590 .tokline 

4600 LDA#buffer DIV256:STA&38:LDA#5 
4610 STA&37:SEI:LDA#&51:STA &DE7 
4620 LDA#&89:STA&DE8 

4630 LDX#0:LDY#&FF : LDA#&BB 

4640 JSR osbyte:STX&DE9 

4650 LDA#&48:STA&230: LDA#&FF : STAG231 
4660 CLI: МР (&230) 

4670 : 

4680 .insertline 

4690 SEI:LDA#insline MOD256:STA&DE7 
4700 LDA#insline DIV256:STA&DE8 
4710 LDX#0: LDY#&FF : LDA#&BB 

4720 JSR osbyte:STX&DE9 

4730 LDY#2:LDA(bptr) , Y:STA&2A 

4740 DEY: LDA(bptr) , Y:STA&2B 

4750 LDA#0:STA&2C:STA&2D 

4760 LDA#&48:STA&230: LDA#&FF : STAG231 
4770 LDY#5:CLI: JMP (&230) 

4780 : 

4790 .initpptr2 

4800 LDA#ipbuff2 MOD256:STA pptr 
4810 LDA#ipbuff2 DIV256:STA pptr+1:RTS 
4820 : 

4830 .ptbasline 

4840 JSR detokline:JMP prntline 
4850 : 

4860 .spaces 

4870 INX:LDA#spc 

4880 .spcloop 

4890 DEX:BEQ spcexit:JSR oswrch 
4900 JMP spcloop 

4910 .spcexit RTS 

4920 .errexit 

4930 STA &101:LDA#0:STA &100:LDY#0 
4940 .errloop 

4950 LDA detext,X:STA &102,Y:INX 
4960 INY:CMP#0:BNE errloop:JMP &100 
4970 .detext 

4980 EQUS"Delimiters?":EQUB 0 

4990 .tltext 

5000 EQUS"Missing delimiters/Text too 1 
ong":EQUB 0 

5010 .wetext 

5020 EQUS"* wildcard not allowed" 
5030 EQUB 0 

5040 : 

5050 ]NEXT:ENDPROC 

5060 : 

5070 DEF PROClinks 

5080 P%=start+size:0%=codetsize 
5090 FOR I$-0 TO 13 

5100 [OPT 7:JMP notimp:] 


5110 NEXT:ENDPROC B 
LEF B 


= 
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by Robin Burton 


After warnings of 
doom and gloom for 
some in the last 
Forum I thought we should look at items of a 
(slightly) lighter nature this month. 


PROGRESS REPORT 

I'm not sure that the 512 Technical Guide would 
normally have a section of its own in the 
Forum, but I’ve given it one because it's being 
mentioned more and more frequently in your 
letters lately. In case any newer Forum readers 
don't know the facts, I should first point out 
that I’m the author of this particular book, so 
having declared my interest I can now talk 
about it and you can ignore me if you think it's 
an abuse of privilege. 


Quite a few of you ordered this book from Dabs 
Press some time ago and are wondering what 
happened to it, why it's so long in arriving and 
indeed if it ever will arrive. As I wrote it, I can 
of course tell you. At the same time it might be 
interesting to hear how books are produced and 
eventually reach the reader. It's not obvious 
without a bit of thought, but there's a great deal 
more to it than simply writing a book and 
sending it to a printer. 


THE STORY SO FAR... 

I finished the final section of the text last 
September and it was duly forwarded to Dabs 
for editing and so on, more of which in a 
moment. In fairness to Dabs I should at this 
point say that they'd hoped, even expected that 
I would be able to complete this part of the job 
much sooner and had based their advertised 
publication date on that. Unfortunately, like 
most of you, I still have to earn a living, and as 
you'll know this often interferes with things 
you'd rather be doing, like using the 512 (or 
even talking about it). 
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Following this, the text was sent for editing, a 
job carried out by Sid Day, who you may like to 
know is also (naturally!) a 512 Forum reader 
(Hi Sid!). You should understand that editing a 
book the size of the 512 Technical Guide (400+ 
pages at the last count) is no small or easy task, 
but even so Sid had completed the job in about 
a month. Thus, in early November it arrived 
back at Dabs ready for typesetting, the next 
stage in the process. 


Typesetting is an extremely laborious, time 
consuming task, and just like writing or editing 
a book, there's no way to automate the process. 
As I said, most of us have to earn a living and 
Dabs is no exception, therefore typsetting has to 
be 'slotted in' between servicing orders, 
answering queries, preparing for and attending 
shows and generally keeping the business 
running. Of course also in December comes that 
great stealer of time, the Christmas break, 
followed almost immediately by another 
computer show, this time BETT at the Barbican 
Centre. 


This brings us up to date at the time of writing, 
but with the added complication that changes 
have taken place at Dabs over the Christmas 
period which have definitely not assisted 
production, rather the reverse. The changes 
themselves are no secret, but I won't turn the 
Forum into a gossip column in spite of my 
occasional excursions into story telling (like this 
one) so you must either learn the details 
elsewhere or remain in the dark. 


I'm presently (January) expecting the typeset 
proofs of the book to arrive here any day, when 
my next job will be to check everything and 
correct the inevitable errors which will have 
crept in during editing or typesetting. I shall 
then produce the glossary and finally write the 
index and number the contents list, but only 
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when the page numbers are guaranteed not to 
change again. After that it’s back to Dabs for re- 
setting of my late changes or additions. 


Assuming this last check doesn’t cause page 
renumbering, all that remains then is a final 
check of the finished product. When this is 
complete it’s on to the easy part, which is 
getting the book printed, bound and on sale. 
Depending on the printer’s workload at the 
time, this usually means between one and two 
months to first availability on the book shelves. 


There you have the complete story. If you 
ordered the book some time ago all I can say is 
be patient a little longer. It will appear in due 
course, hopefully pretty soon after you read 
this issue of BEEBUG. In answer to those who 
specifically queried the point, the book has 
definitely not been either ‘shelved’ or cancelled. 


MATTERS ARISING 

One other specific query about the Technical 
Guide which is frequently raised is the question 
of whether or not it includes a 512 memory 
expansion project. The answer to this is ‘Yes, it 
does’. The reason for mention of this point is 
that more and more over the last year or so the 
512’s limited memory has proved a stumbling 
block to running new software. Those who’ve 
recently acquired a 512 are in many ways worse 
off than the rest of us because they don’t have 
ready access to ‘old’ software and never had the 
chance to buy a PC+ either. 


The reason for memory shortage being a more 
common problem these days is simple. While a 
‘standard’ PC or clone is limited to 640K of 
memory and 256K or 384K was common only a 
short time ago, PC systems with EMS 
(Expanded Memory System) are much more the 
norm nowadays. While the original 8086/8088 
processor chips and their equivalents could 
only address 640K of memory (which, 
compared with CP/M Z80 based systems 
seemed huge at the time), later chips aren't so 
limited. For example the 80286 can manage a 
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theoretical 16Mbytes of memory. The problem 
of course is, as usual, the software. 


It's interesting to note that, while computers are 
often spoken of as mere boxes, just convenient 
containers in which to run the all important 
software, the truth is that in terms of 
developments this view is absolutely incorrect. 
Certainly some programs are better than others, 
and certainly some are genuinely imaginative 
or innovative, but the ultimate limit to what can 
be achieved is always governed by the 
hardware, primarily the processor chip. 


The way that developments actually happen is 
that processor manufacturers such as Intel or 
Motorola compete with each other to produce 
new and more sophisticated processor chips. 
Following the arrival of such a new chip, the 
PC manufacturers then compete to produce 
new and better machines, followed by software 
producers who write more complex and 
sophisticated software to take advantage of the 
new machines. So you see, the truth is that 
software must always trail the hardware in 
terms of capability. That's why I always smile 
when I hear some supposedly informed and 
expert individual saying "The hardware isn't 
important, it's the software that matters"! 


Back to the point. In 1985, as a result of 


processor advances, the Lotus Development , 


Corporation in conjunction with Intel 
announced the specifications for EMS. A while 
later the Microsoft Corporation announced that 
Microsoft Windows would be developed to 
take advantage of EMS. To cut a long story 
short this was produced for MS-DOS version 3 
and EMS PCs. To maintain the compatibility 
with earlier and more limited versions of both 
DOS and processor, new extra commands were 
provided by the processor chip to handle EMS 
and overcome the previous 640K limit, while 
retaining all the existing instructions. 


If you're unfamiliar with how EMS works, the 
easiest way to understand it is to liken it to the 
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512 Forum 


Beeb’s sideways RAM. An area of memory is 
logically mapped at a fixed location in the 
addressing range of the machine, but it consists 
of separate sections or blocks of RAM which 
_ сап be individually switched (paged) in or out 
by the processor under software control. In 
effect, although a PC may still only address 
640K of RAM directly, the contents of some 
parts of that 640K (in a 64K segment known as 
the page frame) can be swapped with areas of 
the extended memory in 16K chunks, in effect 
giving overlaid main memory. To be able to do 
this though, you need both the correct 
processor and the correct operating system. 


Well written software which can take 
advantage of EMS while retaining 
compatibility with earlier systems should 
check the version of DOS and, if appropriate, 
the type of machine to see if EMS is available. 
If not then the program can resort to 
restricting facilities or file sizes, or overlaying 
programs or data from disc so that it can still 
run. Unfortunately though, in some cases it 
just won’t work without EMS. 


I’ve digressed a little as usual, so if you’re 
thinking this isn’t much to do with the 512 
perhaps I should explain. As processor chips 
and PCs have expanded their capabilities, 
applications software has tended to grow in 
complexity (and memory consumption) 
accordingly. One implication is that you may 
upgrade to a later version of a package you 
already use successfully in the 512 only to find, 
if you're unlucky, that the new version won't 
run at all. 


Alternatively, if luck is with you, the new 
package may run well enough, but may also 
consume a great deal more memory. I've had 
several letters on this topic and have recently 
upgraded one of my own applications to find 
the same thing. The ‘old’ version of the main 
program was an ‘EXE’ file of about 105K, but 
the new one, (which happily does work 
perfectly by the way) is all of 226K. 
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Since an unexpanded ‘empty’ 512 has about 
356K free with DOS Plus 2.1, it’s easy to see that 
the original program left about 250K free, but 
the new one has just about cut this in half. This 
needn't cause problems with every package of 
course, but with mine, for example, one 
immediate problem is that many of my existing 
files are now too big to load with the new 
software. A secondary point is that I can no 
longer load the on-line help at all unless I 
haven't yet loaded a file, and using a DOS shell 
from within the application, for example, to 
copy a file or to format a disc, is also now a no- 
go area more often than not. The all too 
frequently seen response is now ‘Not enough 
memory to load XYZ’. 


One possible solution with an application like 
word processing is to divide files into smaller 
ones (using the old software) and simply have 
more of them, but with something like a 
spreadsheet or a graphics program for 
example, this is likely to be totally out of the 
question. 


This brings us full circle. Upgrade your 
software and, even if it runs successfully, it's 
possible that you'll suddenly become acutely 
aware of the shortage of memory in the 512. 
The PC+ has been out of production for over a 
year now, so apart from occasional second- 
hand sales that's no help, but as I said earlier, 
there is a memory expansion project in the 
book. 


POSSIBLE DEVELOPMENTS 

Finally, on the same subject there is a possibility 
of a new ready-made 512 expansion board 
being produced, but this is a very expensive 
undertaking and it won't go ahead unless the 
numbers justify it. Note that THIS IS NOT an 
advertisement and no further information will 
be forthcoming just yet even if you ask for it, 
but if you would be interested just drop me a 
short note and say so. Your letter might very 
well increase the chances of this product seeing 
the light of day. B 
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We will start this month’s 
article by presenting the 
complete compiler program. 
This is given in listing 1. 
Rather than compiling an 
expression directly into 
machine code, the operation 
is done in a number of 
stages. The compiler itself 
generates a textual form of a 
Basic program containing 
the assembler instructions 
for the final machine code. 
This then has to be converted 
to a true Basic program, and 
executed in order to produce 
the actual machine code. 


Before explaining any details 
about the compiler you 
should try it for yourself. 
Start by typing in and saving 
the program. When you run 
it you are prompted to enter 
an expression. This will then 
be compiled into the textual 
form of the assembly 
language program. This is 
both printed out as it is 
compiled, and also saved 
with the filename ‘Object’. 
The command: 
*EXEC Object 

will load in the textual form 
and convert it into a true 
Basic program, which can 
then be saved. It is 
important that you have 
saved the compiler program 
before performing this stage, 
as it will be overwritten 
otherwise. Finally, running 
the object program will 
assemble the machine code 
and save it with the name 
‘Code’. Do not, however, 
attempt to run the machine 
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Writing a Compiler (Part 4) 


David Spencer continues his discussion of writing a simple compiler. 


code at this stage. Incidentally, if the compiler 
produces the messages Syntax error or 
Mistake then this means that there is an error in 
the entered expression, as described in the 
previous articles in this series. On the other 
hand, any errors in the compiler itself will be 
reported in the normal way including the line 
numbers at which they occur. 


HOW IT WORKS 

If you study listing 1 then you should be able to 
recognise the general structure which was 
described in last month’s article. Added to this 
are the procedures PROCerror and PROCmatch 
also described last month, and the lexical 
analysis function, FNlex, from the first part of 
this series. The syntax-directed translation 
methods described in last month’s article are 
incorporated into the routines that make up the 
syntax analyser. For example, line 1210 handles 
the unary negation operator. It calls 
PROCfactor to parse whatever is being negated, 
and then generates the instruction: 

JSR negate 
to perform the negation at runtime. 


There are also a number of other procedures 
which are concerned with code generation. Two 
of these, PROCopen and PROCclose, generate 
the standard preamble and postamble that is 
common to the output program, regardless of 
the expression being compiled, for example the 
FOR-NEXT loop needed to implement two-pass 
assembly. The procedure PROCput is used to 
output each individual assembler instruction as 
it is generated. A further procedure, 
PROCdoconst, generates the instructions 
necessary to stack a constant during the 
execution of the compiled code. 


If you look at the assembly language program 
produced, you will see that the actual. 
instructions match the example given last 
month with the exception that the final JSR 
which is immediately followed by an RTS is 
condensed into a single JMP instruction. This 
so-called Tail Code Optimisation is a very simple 
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form of optimisation which all compilers of any 
worth would perform as a matter of course. 


LINKING AND LIBRARIES 


At this stage you can try the compiler, 
generating first an ‘Object’ file, and then the 
‘Code’ file. However, if you try to run the 
machine code it will just crash. This is not 
because of a mistake in the compiler (hopefully), 
but rather because the machine code generated 
by the compiler is not directly executable. There 
are three reasons for this, and we will examine 
them in the remainder of this article. 


Firstly, and most seriously, the compiled code 
makes calls to various routines to execute the 
compiled expression. For example, a routine 
called add is required to perform any additions. 
Similarly, the routines stack and print are 
required to stack the operands and print the 
result respectively. As it stands, the code 
produced by the compiler simply doesn’t 
contain these routines. Instead, when the 
machine code is assembled, the calls to these 
non-existent routines are assembled into calls to 
arbitrary addresses. For example, the output 
produced by the compiler contains the variable 
declaration: 

subtract=1 
As a result, whenever the statement: 

JSR subtract 
is assembled it will generate an instruction to 
call to address location 1. Clearly there is 
unlikely to be an addition routine at this 
address. 


The second problem is that the code is 
assembled to run from address location 0, as 
defined by the sctting of the program counter 
variable P% in the ‘Object’ file. Memory from 
address 0 up to &8F is reserved for use by the 
currently active language, such as Basic. This is 
therefore not an appropriate place in which to 
load an executable program. 


Thirdly, the load address of the assembled 
machine code doesn't correspond to the 
address at which it is designed to run. We have 
already said that the code is assembled to run 
from location 0, yet it will by default be loaded 
at the same location at which it was stored 
when it was assembled. 
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What we need is another program that takes 
the output of the compiler, combines it with a 
number of pre-written routines, such as the 
addition routine, relocates the resulting code to 
execute at a sensible address, and then saves 
the final code in such a way that it will load at 
the same address. These tasks are the job of a 
utility called a Linker. 


The way a Linker works is to look at the 
machine code generated by the compiler and 
identify any calls to non-existent routines. It 
then locates the necessary routines in the 
Runtime Library which is simply a collection of 
all routines that may be called by the compiled 
code. The appropriate routines are extracted 
from the library and added to the end of the 
machine code. The Linker then alters all the calls 
to these routines so that they jump to the correct 
place, and then relocates the entire result so that 
it will run from a 'sensible' address. Finally, the 
complete code is saved so that when reloaded it 
will be at the correct address for execution. 


In the final part of this series next month we will 
develop the Runtime Library and Linker program. 


REM » :4.$.Compiler 
20 REM Program Expression Compiler 
30 REM Version В1.0 

40 REM Author David Spencer 

50 REM BEEBUG March 1990 

60 REM Program subject to copyright 


80 ON ERROR OSCLI "SPOOL":REPORT:PRIN 
T " at line ";ERL:END 
90 INPUT "Enter Expression " input$ 
100 PROCopen 
110 DIM consts (20) 
120 constcount=0 
130 minusflag-FALSE 
140 tok-FNlex 
150 PROCexpr 
160 PROCmatch (0) 
170 PROCclose 
180 END 
1907: 
200 DEF PROCexpr 
210 PROCterm:PROCexpr2 
220 ENDPROC 
23054 
240 DEF PROCexpr2 
250 IF tok=ASC"+" PROCmatch(ASC"+") :PR 


Beebug March 1990 


Workshop - Writing a Compiler 


L 


OCterm:PROCput ("JSR add"):PROCexpr2 

260 IF tok-ASC"-" PROCmatch (ASC"-") :PR 
OCterm:PROCput ("JSR subtract"):PROCexpr2 

270 ENDPROC 

260: 

290 DEF PROCterm 

300 PROCfactor:PROCterm2 

310 ENDPROC 

320": 

330 DEF PROCterm2 

340 IF tok=ASC"*" PROCmatch (ASC"*") :PR 
OCfactor:PROCput ("JSR multiply"):PROCter 
m2 

350 IF tok-ASC"/" PROCmatch (ASC"/") :PR 
OCfactor:PROCput ("JSR divide"):PROCterm2 

360 ENDPROC 

320 

380 DEF PROCfactor 

390 IF tok-1 PROCmatch (1) :PROCdoconst ( 
value) :ENDPROC 

400 IF token=ASC"(" PROCmatch (ASC" (") : 
PROCexpr:PROCmatch (ASC") ") : ENDPROC 

410 IF token-ASC" " PROCmatch(ASC" "): 
PROCfactor:PROCput ("JSR negate") :ENDPROC 

420 PROCerror 

430 ENDPROC 

440 : 

450 DEF FNlex 

460 REPEAT 

470 IF LEFT$(input$,1)-" " THEN input$ 
-MID$ (input$, 2) 

480 UNTIL LEFTS(input$,1)<>" " 

490 IF input$="" THEN =0 

500 AS-LEFT$(input$,1):IF NOT minusfla 
g AND A$-"-" THEN token=ASC"_": input $=MI 
D$ (input$,2) :=token 

510 IF INSTR("4-*/",A$) THEN token=ASC 
input$:input$-MID$ (input$,2) :minusflag-F 
ALSE:-token 

520 IF INSTR("()",A$) THEN token-ASCin 
put$:input$-MID$ (input$,2) :-token 

530 IF INSTR("0123456789",A$)-0 THEN P 
RINT "Mistake":OSCLI "SPOOL":END 

540 value-VAL (input$) 

550 REPEAT 

560 IF INSTR("0123456789", LEFT$ (input$ 
,1)) THEN input$-MID$ (input$,2) 

570 UNTIL INSTR("0123456789", LEFTS (inp 
ut$,1))=0 OR input$-"" 

580 minusflag-TRUE 

590 =1 

600 : 

610 DEF PROCerror 

620 PRINT "Syntax Error" 

630 *SPOOL 
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640 END 
650 : 
660 DEF PROCmatch (template) 
670 IF tok<>template THEN PROCerror 
680 tok-FNlex 
690 ENDPROC 
700 : 
710 DEF PROCput (out$) 
720 PRINT $РС (6) ;out$ 
730 ENDPROC 
740 : 
750 DEF PROCdoconst (number) 
760 consts (constcount)-number 
770 constcount=constcount+1 
780 var$="op"+STR$constcount 
790 PROCput ("LDX #"+var$+" MOD &100") 
800 PROCput ("LDY #"+уаг$+" DIV &100" 
810 PROCput ("JSR stack") 
820 ENDPROC 
830 : 
840 DEF PROCopen 
850 *SPOOL Object 
860 RESTORE 
870 REPEAT READ data$ 
880 IF data$<>"" PRINT data$ 
890 UNTIL data$-"" 
900 ENDPROC 
910 = 
920 DEF PROCclose 
930 PROCput ("JMP print") 
940 FOR F%=0 TO constcount-1 
950 PRINT ".ор";Е%+1;ТАВ (6) ;"EQUD ";co 
nsts (F%) 
960 NEXT 
970 PRINT "]NEXT" 
980 PRINT "OSCLI ""SAVE Code ""+STRS$~c 
оде+" " ""+5ТВ$ ^08" 
990 *SPOOL 
1000 ENDPROC 
1010 : 
1020 DATA "NEW" 
1030 DATA "AUTO" 
1040 DATA "REM Compiled object code" 
1050 DATA "DIM code 256" 
1060 DATA "add=0" 
1070 DATA "subtract-1" 
1080 DATA "multiply-2" 
1090 DATA "divide-3" 
1100 DATA "negate-4" 
1110 DATA "stack-5" 
1120 DATA "print-6" 
1130 DATA "FOR pass-4 TO 7 STEP 3" 
1140 DATA "P%=0:0%=code" 
1150 DATA "(ОРТ pass" 


1160 DATA "" B 
k 
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Master Display ROM (Part 2) МИ 


Derek Gibbons concludes his article by adding the facility to configure the start-up 
screen colours on a Master. 


As we mentioned in Part 1 (BEEBUG Vol.8 
No.8), the Master Display ROM can be 
extended to allow the start-up screen colours to 
be configured. This is achieved through the 
detection of ROM service calls 40 and 41; these 
indicate an unknown *CONFIGURE or 
*STATUS command respectively. With Part 2 of 
the ROM installed you can select any of the 
screen colours 0-7 for both foreground and 
background, using *CONFIGURE FGND n, or 
*CONFIGURE BGND n, and this information is 
stored in the ROM's private byte in CMOS 
RAM. These options are added to the 
configuration list displayed by *CONFIGURE. 
The colour numbers can be displayed by 
*STATUS, or by *STATUS FGND and *STATUS 
BGND, and are accessed on any type of break 
to set the colours using VDU19. This action has 
to occur on any type of break because, unlike 
shadow operation, VDUI9 settings are reset 
even by a simple break. As with all 
*CONFIGURE commands, *STATUS will show 
the changes immediately, but they do not 
become effective until a hard break is actioned. 


Listing 2 contains the necessary changes and 
additions to last month's program. Listing 1 
from last month should NOT be renumbered as 
the new lines are designed to interleave, and 
some (lines 120, 1110, 1160, 1240, 1270 and 1840) 
are actually replacements. These alterations 
can either be made directly by working on the 
original source program (after first taking a 
copy!), or entered as a separate program and 
then saved as an ASCII file (using the Master's 
EDIT facility, or the *TEXTSAVE command of 
BEEBUG’s Basic Booster ROM, in preference to 
*SPOOL). Last month's program can then be 
loaded into memory and the ASCII file EXEC'd 
in. Running the modified program will then 
produce an image of the extended ROM. 


THE ALTERATIONS IN DETAIL 
Line 120 changes the ROM name to MDR2; 
lines 1110 and 1160 change the version 
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numbers; lines 1240-1260 re-organise the 
actions on reset; line 1840 takes care of the 
*STATUS and *CONFIGURE commands; and 
lines 2090-2150 provide extra HELP 
information. 


Lines 2180-2430 change the screen colours by 
first using Osbyte 161 to read the mode number 
and shadow flag from byte 10 of the CMOS 
RAM. If the mode is 7 or 135, no further action 
is taken. For other modes, lines 2230-2240 use 
Osbyte 161 again to read byte 30+п (where n is 
the current ROM number, obtained from 
location &F4). This CMOS location is 
automatically reserved for the Master Display 
ROM by the MOS, and is used here to store the 
foreground and background colour numbers. 


Lines 2250-2260 separate these and store them 
in locations &91 and &92. The actual colour 
changes occur in lines 2280-2410 where 
VDU19,n,m,0,0,0 commands are generated. 
However, if the foreground and background 
colours have inadvertently been set to the same 
value, the foreground colour is first changed 
(line 2340) to be the complement of the 
background colour and the new numbers are 
stored in the CMOS byte (lines 2350-2360). 


Line 2450 checks for ROM service call 41 
(unknown *STATUS command); line 2470 gets 
the colour byte as above; and lines 2480-2500, 
2750-2810, and 2840-2900 check to see if either 
'FGND' or ‘BGND’ follows the *STATUS 
command. If either of these has been included, 
lines 2690-2710 and 2720-2740 display the 
colour number. If *STATUS has no parameters, 
lines 2530-2660 extend the normal full status 
display to show both foreground and 
background information, while unrecognised 
parameters result in a ‘bad command’ error. 


If service call 41 is not detected, then line 2930 


checks for service call 40 (unknown 
*CONFIGURE command) and line 2950 checks 
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the rest of the command line. Unrecognised text 
gives ‘bad command’; no text at all extends the 
normal full configure display to show the 
syntax of the new *CONFIGURE commands 
(lines 3000-3080); and ‘FGND’ or ‘BGND’, 
followed by an optional space and a single 
decimal digit, causes the corresponding colour 
number to be set in lines 2960-2970 (if the 
colour number is omitted from the command, a 
‘bad command’ error again results). Finally, line 
3100 (foreground) or 3150 (background) reads 
the private byte once more; lines 3220-3240 
(foreground), or 3300-3320 (background), 
change the appropriate part of the byte, and 
lines 3250-3270 write the new byte back to 
CMOS RAM using Osbyte 162. 


Listing 2 


*SAVE MDR2 5000+400 8000 8000 
1110 EQUB2 

1160 EQUS" 1.2v" 

1240 CMP£&27:BNEnotbreak:JMPbreak | 
1250 .notbreak 

1260 JMPtryhelp 

1270 .duncol 

1840 JMPtrystatus 

2090 EQUS" Extended STATUS & CONFIGURE 


EQUB13 | 
EQUB13 | 
EQUS" 
EQUB13 
EQUS" Background via *CO. BGND n" 
.break | 
LDX#10: LDY#0: LDA#161: JSRosbyte 
TYA: STA& 90: AND#7 : CMP #7 : BEQseven 
JSRsbyte : JMPvdu 

.Sbyte 

CLC: LDAromnum:ADC#30 : TAX 
LDA#161:JSRosbyte 

TYA: AND#7:STA&91 

TYA: AND#112 : LSRA: LSRA: LSRA: LSRA: ST 


2100 
2120 
2130 
2140 
2150 
2180 
2190 
2200 
2210 
2220 
2230 
2240 


Foreground via *CO. FGND n" 


2260 


2270 
2280 
2290 
2300 
2310 
2320 


RTS 

.vdu 

LDA#19: JSRoswrch 

LDA£0:JSRoswrch 

LDA& 92 : JSRoswrch : LDA#0 : JSRoswrch 
JSRoswrch:JSRoswrch 

2330 LDA&91:CMP&92:BNEdifferent 

2340 EOR£7:STA&91:LDA&92:ASLA:ASLA:ASLA 
:ASLA:ORA&91 

TAY : CLC: LDAromnum: ADC#30 : TAX 


2360 LDA#162:JSRosbyte 


2370 .different 
2380 LDA#19:JSRoswrch 
2390 LDA#7:JSRoswrch 
2400 LDA&91:JSRoswrch: LDA#0: JSRoswrch 
2410 JSRoswrch: JSRoswrch 
2420 .seven 
2430 JMPduncol 
2440 .trystatus 
2450 CMP#41:BEQstatus: JMPtryconfig 
2460 .status 
2470 PHY: JSRsbyte:PLY 
2480 LDA(comline) , Y:CMP#13:BEQpstatus 
2490 JSRtryf:BCCsfgnd 
2500 JSRtryb:BCCsbgnd 
2510 JMPrestore 
2520 .pstatus 
2530 LDX40 
2540 .pfgnd 
| 2550 LDAfmess,X:JSRosasci 
2560 INX:CPX#9:BCCpfgnd 
2570 LDA&91:0RA448:JSRosasci:JSRosnewl 
2580 LDX#0:JMPpbgnd 
2590 .fmess 
2600 EQUS"FGND 
2610 1рХ#0 
2620 .pbgnd 
2630 LDAbmess,X:JSRosasci 
2640 INX:CPX49:BCCpbgnd 
2650 LDA&92:ORA#48: JSRosasci: JSRosnewl 
2660 JMPrestore 
| 2670 .bmess 
2680 EQUS"BGND 
2690 .sfgnd 
2700 LDA&91:0RA448:JSRosasci:JSRosnewl 
2710 JMPalldone 
2720 .sbgnd 
| 2730 LDA&92:ORA#48: JSRosasci:JSRosnewl 
2740 JMPalldone 
2750 .tryf 
2760 DEY:LDX$255 
2770 .loopf 
2780 INX:INY 
2790 CPX#4:BEQsok 
2800 LDA(comline) , Y:AND#&DF:CMPfmess, X: 
BEQloopf 
2810 JMPfault 
2820 .sok 
2830 CLC:RTS 
2840 .tryb 
2850 DEY:LDX$4255 
| 2860 .loopb 
| 2870 INX: INY 
2880 CPX#4:BEQsok 
| 2890 LDA(comline) , Y:AND#&DF:CMPbmess, X: 
| 


«n» (n = 0-7)" 


«n» (n = 0-7)" 
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BEQloopb 3120 .cdone 


2900 .fault 3130 JMPalldone 

2910 SEC:RTS 3140 .cbgnd 

2920 .tryconfig 3150 PHY:JSRsbyte:PLY:JSRspaces 

2930 CMP#40:BEQconf:JMPrestore 3160 JSRbbyte:BCCcdone:JMPrestore 
г 2940 .conf 3170 .spaces 


2950 LDA(comline),Y:CMP£13:BEQpconf 
2960 JSRtryf:BCCcfgnd 


3180 LDA(comline) , Y: CMP#32:BNErtn 
3190 INY:BRAspaces 


2970 JSRtryb:BCCcbgnd 3200 .rtn 

2980 JMPrestore 3210 RTS 

2990 .pconf 3220 .fbyte 

3000 LDX40 3230 CMP£13:BEQnonum: AND£7 ! 
3010 .pcf 3240 STA&91:LDA&92:ASLA: ASLA:ASLA:ASLA: 

3020 LDAfmess,X:JSRosasci ORA&91 

3030 INX:CPX423:BCCpcf 3250 .setconf 


3040 JSRosnewl:LDX$0 
3050 .pcb 


3260 TAY:CLC:LDAromnum:ADC#30 : TAX 
3270 LDA#162:JSRosbyte:CLC:RTS 


3060 LDAbmess, X:JSRosasci 3280 .nonum 
3070 INX:CPX#23:BCCpcb 3290 SEC:RTS 
3080 JSRosnewl:JMPrestore 3300 .bbyte 


3090 
3100 
3110 


1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
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.cfgnd 
PHY: JSRsbyte: PLY: JSRspaces 
JSRfbyte:BCCcdone: JMPrestore 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


6600666666663C00, 7EC39DB19DC37E00 
0018387F38180000, 00181CFE1C180000 
181818187E3C1800, 00183C7E18181818 
30183C063E663E00, 30183C667E603C00 
66003C667E603C00, 3C663C667E603C00 
66003C063E663E00, 3C663C063E663E00 
00003F0D3F6C3F00, 00003C6660663C60 
0C183C667E603C00, 66003C6666663C00 
6600666666663E00, 3018003818183C00 
3C66003818183C00, 3018003C66663C00 
3C66003C66663C00, 3018006666663E00 
3C66006666663E00, 66006666663E063C 
00663C66663C6600, 3C603C663C063C00 
3C663C0000000000, 0000001818181818 
0000001F00000000, 0000001F18181818 
000000F800000000, 000000F818181818 
000000FF00000000, 000000ЕЕ1 8181818 
1818181800000000,1818181818181818 
1818181F00000000, 1818181F18181818 
181818F800000000, 181818F818181818 
181818FF00000000, 181818FF18181818 
000000070C181818, 000000E030181818 
18180C0700000000, 181830E000000000 
1800181830663C00, 1800181818181800 
366C0066766E6600, 366C007C66666600 
187E181818181800, 187E1818187E1800 
1818180000000000, 30180C0000000000 
3F7B7B3B1B1B1F00,0000001818000000 
03030606761C0C00, АА55АА55АА55АА55 
3E63676B73633E00, 1C3663637F636300 
7Е33333Е33337Е00, 7F63606060606000 


3310 CMP#13:BEQnonum:AND#7 
3320 STA&92:ASLA:ASLA:ASLA:ASLA:ORA&91 
JMPsetconf 


3330 


Printing Characters 128 to 255 (continued from page 33) 


1C1C363663637F00, 7F33303E30337F00 
7E660C1830667E00, 7733333F33337700 
3E63637F63633E00, 3C18181818183C00 
63666C786C666300, 1C1C363663636300 
63777F 6B63636300, 63737B6F67636300 
7E00003C00007E00, 3E63636363633E00 
7F36363636363600, 7E33333E30307800 
7F63301830637F00, 7E5A181818181800 
6666663C18183C00, 3E083E6B3E083E00 
6363361C36636300, 3E086B6B3E083E00 
3E63636336366300, 7F636336361C1C00 
18187E1818007E00, 007E0018187E1818 
1818181818181800, 3636363636363600 
0066666666663C00, 003C666666666600 
00033E676B733E60, 00003B6E666E3B00 
1E33333E33333E60, 000066361C183030 
3C60303C66663C00, 00001E301C301E00 
3E0C183060603E06, 00007C6666660606 
3C66667E66663C00, 0000181818180C00 
0000666C786C6600, 6030181C36636300 
0000333333333E60, 000063331B1E1C00 
3C60603C60603E06, 00003E6363633E00 
00007F3636363600, 00003C66667C6060 
00003F6666663C00, 00007E1818180C00 
0000733333331E00, 00003E6B6B3E1818 
000066361C1C3633, 0000636B6B3E1818 
000036636B7F3600, 380C063E66663C00 
00316B46007F0000, 007E007E007E0000 
071C701C07007F00, 060C7E187E306000 
701C071C70007F00, FFFFFFFFFFFFFFFF 
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Cable Analyser Review 


Alan Wrigley reviews the CA100 cable analyser from Electronic Innovations Ltd. 


The BBC micro, with its multitude of output 
ports, has long been considered an ideal micro 
for applications which involve an interface with 
the outside world. As a result, many laboratories 
and workshops have 
BBCs busily beavering 
away connected to 
various items of test or 
control equipment. 


The СА100 cable 
analyser is the latest 
piece of test equipment 
to appear on the market. 
It may be of interest to 
anyone who designs, 
manufactures or services 
cables in quantity, and 
requires a quick but 
comprehensive means of 
testing them. It can also be used with an 
Archimedes equipped with a user port podule. 


THE PRODUCT 


The prototype analyser supplied for review was 
housed in a sturdy metal box, 250x180x70mm, 
and appeared to be well constructed. It is 
connected to the computer via a flying ribbon 
cable which plugs into the BBC's user port. No 
external power connection is necessary. On the 
front of the box are four 25-way 'D' connectors, 
into which the cable to be analysed may be 
plugged. A special interface PCB will be 
separately available, which will plug into the 
four ‘D’ plugs and will be drilled to 
accommodate a wide variety of common 
connectors, allowing the user to solder items to 
the board to suit his own requirements. 
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The prototype CA100 analyser 


Supplied with the analyser is a software 
package which provides a comprehensive 
range of functions, to be described below. The 
documentation provided with the prototype 
was sparse, but full documentation will be 
supplied with the production units. 


THE SOFTWARE 


Booting up the disc reveals the main menu, 
containing 9 options. One of these allows you 
to change various default settings, namely 
colour or monochrome display, printer type, 
and serial or parallel 
output. You can set 
these so that the 
options you require 
become the defaults 
in future. The other 
menu selections allow 
you to manipulate 
cable data in various 
ways, as will now be 
explained. 


Each time a cable is 
analysed, a set of data 
will be produced, 
known as the cableform. 
This basically indicates which connectors at one 
end of the cable are connected to which ones at 
the other. АП the software functions operate on 
one cableform at a time, which is held in 
memory. This is always referred to as the 
"reference specification", and may have been 
derived from an actual cable under test, from a 
cableform file held on disc, or entered manually 
using the editor to be described later. The 
reference specification may also be saved to 
disc. 


Once a cableform is in memory, an option from 
the main menu allows you to list the pin 
connections on screen, or to a printer. A further 
option compares the data held in memory to a 
cable currently plugged into the analyser and 
displays any deviations between the two, again 
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Cable Analyser Review 


with the option of a printout. Thirdly, you can 
display the cableform graphically on the screen. 
This shows all 100 pins, in two columns of 50 at 
each side of the screen, with connecting lines 
drawn where pins are connected by the cable. 


Connect (<COPY>) or delete <<рЕ ЕТЕ») ? 
Ref. specification is 'CRBLE6*^ 


<ESCAPE> TO MENU : <CTRL-P> TO PRINT 


A cableform displayed on the screen 


All these functions appear to work efficiently. I 
was a little disappointed to find that setting the 
default screen option to colour had no effect on 
the cableform graphic display, which is simply 
white on black (both on the model B and the 
Master). This made it rather difficult to read a 
complicated diagram, with many lines packed 
closely together, on a medium-resolution 
monitor. 


THE DESIGN MENU 
The functions described so far are intended 
to provide simple test operations which 


Points Arising....Points Arising 


CROSSWORD EDITOR 

(BEEBUG Vol.7 No.4) 

This does not correctly display a file longer 
than 256 bytes (17 by 17) when reloaded. This 
can be corrected by modifying the following 
three lines as shown: 


2040 PRINTTAB(26,0)mode$;" MODE":!&72-W 
%:CALL&A00 

3350 LDA#&FF : STA&71:LDX#0:DEC&73 

3370 TYA:PHA:LDY&71:CPY#0:BNE w:INC&73: 
м LDA (&72),Y 
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„Points Arising....Points Arising... 


enable cable analysis to be carried out 
quickly and conveniently, if necessary by 
non-experts. For the more experienced user, a 
higher level of sophistication is provided by 
a Design Menu, which can be entered from 
the main menu. 


The design programs give you more control 
over the analysis of the test cable, allowing you 
to specify the number and size of the 
connectors, which are then differentiated on the 
graphic display. The display diagram may be 
dumped to a printer, and also a cableform may 
be edited manually, pin by pin. Unfortunately, 
there were a number of problems with the 
design suite software which made it difficult to 
assess their worth. I was assured by the 
manufacturers that these would be sorted out 
before full production started. 


CONCLUSIONS 

The analyser itself is well made, giving the 
appearance of being constructed to a 
specification rather than a price. The basic 
software functions are adequate for their task 
and would be useful in situations where 
standard cables need testing quickly. Provided 
that the design programs are overhauled and 
are able to do what is claimed for them, the 
CA100 could be a useful tool, being certainly a 
lot easier and faster to use than a continuity 
tester. However, I feel that the price will deter 
all except those who simply cannot manage 
without its facilities. [5 


Thanks to Joe Hakeney for discovering and 
correcting this bug. 


DISC FILE IDENTIFIER 
(BEEBUG Vol.8 No.7) 


Line 6310 should be amended to read: 


UNTIL data-&0D OR data-&FF OR LEN (m$)- 
255 


to improve file type recognition. 
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The Archimedes Magazine & Support Group 


Risc User is enjoying the largest circulation of any magazine devoted solely to the Archimedes 
range of computers. Now in its third year of publication, it provides support to schools, 
colleges, universities, industry, government establishments and private individuals. Existing 
Beebug members, interested in the new range of Acorn micros, may either transfer their 
membership to the new magazine or extend their subscription to include both magazines. 

A joint subscription will enable you to keep completely up-to-date with all innovations and 
the latest information from Acorn and other 
suppliers on the complete range of BBC micros. 
RISC User has a massive amount to offer to 
enthusiasts and professionals at all levels. 


Here are just some of the topics covered in more recent issues 
of RISC User: 


A WIMP FRONT END FOR THE BASIC EDITOR 
A utility which provides a WIMP Desktop front end 
to the Basic Editor. 


PINEAPPLE'S COLOUR DIGITISER 
A review of the new real-time colour digitiser for the 
Archimedes. 


ASSEMBLER WORKSHOP 

BITS AND PCS A major series for the more advanced ARM 
Tips provided for the users of the PC emulator. processor programmer. 

CREATING NEW SCREEN MODES DESKTOP PUBLISHING WITH DRAW | 
A utility which creates additional screen modes for How to use the Draw application for simple desktop | 
the Archimedes in the form of relocatable modules. publishing. | 

UNDER THE LID E INTRODUCING LASER PRINTERS 
A major series explaining the hardware that makes A look at the workings of laser printers and Page 
up the Archimedes. Description Languages. 

POP-UP MENUS MASTERING THE WIMP 


Add pop-up menus to non-Wimp programs. A major series for beginners to the WIMP 
programming environment. This month - Forced 


window redraws, 


SCSI INTERFACES 
What is a SCSI interface ? A comparative review of 
SCSI interfaces for the Archimedes and A3000. 


PROBING PASCAL 
A brief overview of the Pascal language and the two 
compilers available for the Archimedes. 


work area origin 
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scroll - 
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to the graphics origin) 
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As a member of BEEBUG you may extend your subscription 
to include RISC User for only £8.10 (overseas see below). 


graphics origin 


Don't delay! SUBSCRIPTION DETAILS 

Phone your instructions now on (0727) 40303 Destination Additional Cost 
Or, send your cheque/postal order to the address below. а а Eire а 
Please quote your name and membership number. Middle East £14.00 
When ordering by Access, Visa or Connect, please Жаасы anata rica £15.00 
quote your card number and the expiry date. Elsewhere £17.00 


RISC User, 117 Hatfield Road, St Albans, Herts AL1 4JS, Telephone (0727) 40303, FAX (0727) 60263 


BEEBUG Education 


by Mark K. Sealey 


è — The whole of this month's Beebug Education is 


unashamedly devoted to a superb program 
called Printbox from market leaders Logotron. 
Recently merged with Longman, Logotron is 
already renowned for both BBC and 
Archimedes versions of LOGO, Pendown and 
associated utilities, and Hyperbook as well as 
the new and innovative Numerator. Printbox 
should prove useful with children and students 
over a wide range of ages. 


Just as you might have thought that good, 
child-centred software for the BBC micro was 
on the way out, Printbox appears to fill a niche 
in the market in a way which ought to make 
teachers, presenters and lecturers, as well as 
other computer enthusiasts, take notice. 


Printbox comes either on ROM together with a 
disc (for the BBC model B), or on two discs 
(5.25" or 3.5") for the Master 128 and Master 
Compact machines. It enables you to produce 
quality artwork in single page format with the 
ability to design and edit layouts, incorporate 
clip-art and use up to 16 fonts. 


BASIC MENU AND STARTUP 

The initial menu is well laid out. It offers you 
the chance to change the working colours, 
though it is easy to do this later on, and allows 
access to Operating System (*) commands as 
well as QUITting. The other options are ones to 
edit an old page or begin a new page, browse, 
and edit and load fonts as well as clip art. 


This is a sensible arrangement, and the progress 
to other menus in what is quite a sophisticated 
functions structure, is as near ideal as can be. 
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There is one small exception when several 
fonts, for instance, have been loaded. In order 
to leave as much working space on the screen 
as possible, just one line of text handles the 
selection of these fonts. It soon becomes 
necessary to scroll sideways, when a right 
angle-bracket (>), used otherwise at times for 
prompts, is not as intuitive as it might be. This 
is a small point, though, and recourse to the 
excellent 80 page manual will explain all. 


DOCUMENTATION 

Apart from the main manual, the 
documentation comprises not only a function 
key card, a diagram of the menu structure and 
quick reference guide, but also a second, 
exemplary, ideas book with all the sample fonts 
and clip-art library for users to choose styles - 
although it is possible to cycle through sections 
of these as stored on disc. Given the price of the 
package, these manuals alone should convince 
potential users that they have a bargain here. 


USE OF PRINTBOX 

At the heart of operations is a "dotty box", 
really a scalable window which is extremely 
easy to use. It is controlled by the cursor keys, 
and surrounds the chunk of material you want 
to work on. You can then copy, flip, move, 
invert or even shrink/enlarge any piece of text 
to achieve just the right effect. 


Because this is so simple to manipulate, the 
package is less one to show off the power of a 
micro or the tricks of the programmer, but more 
one to encourage the user to try and retry a 
variety of effects until just what they want is on 
screen. Even the most user-friendly full blown 
DTP packages sometimes fall down here! 


Once you are satisfied with what is in front of 
you, it can be saved to a second data disc much 
as you might expect. You can then proceed to 
quit and/or print out your page. Once again, 
Logotron has taken into account what is 
actually available in schools in terms of 
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printers; dumps are provided not only for 
Epson and Integrex but also NLQ, 24 pin and 
Canon setups. 


ON WE DNES DAY 


ee 


Sample printout using Printbox 


In terms of the aesthetics of the finished 
product, Printbox has a lot going for it. Effects 
including shadow, different backgrounds and 
borders are all excellent and easy to produce. 
One result of this - and a pointer to the overall 
flexibility of the product - is that mathematically 
inspired graphics (maybe the sort of which 
turtle graphics is capable) can be blended very 
effectively with suitable text, both descriptive 
and explanatory. 


OTHER OPTIONS 

A further feature of Printbox is that, quite 
independently of other options, screens (from 
LOGO, for example) can be grabbed to be 
incorporated in Printbox artwork. One of the 
sub-menus from the Edit Page (which you will 
come to visit quite frequently) allows these to 
be re-incorporated at any stage. Once again, the 
manual is very clear in guiding you through 
this process. 


CLIP-ART 

There is a clip-art editor which will be all the 
more fun to use since the ‘icons’ produced may 
later find their way into the pupils’ work. Even 
so, the quality of what is supplied as samples is 
high. There are seven items relating to 


Beebug March 1990 
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Christmas, for instance, twenty “Celtic” 
patterns and some 100 small pictures in all. Not 
only will these satisfy many less ambitious 
pupils for some time, but also inspire more 
confident ones to work at their own. 


Into the bargain, the “Glue” utility, also on 
disc, allows you to manage and manipulate 
sprites - and rescale oversize ones. It is also 
envisaged that Printbox will be used in 
conjunction with word processors like 
Pendown, from which it is easy to 
incorporate text files; Printbox can also cope 
with text flow from one box to another. 


It is hardly surprising that with all these 
features and the need, presumably, for 
buffers, memory can be tight. There is a 
memory report option in the main menu, 
which helps monitor this. At the same time, 
users would be advised to proceed 
cautiously until familiar with just what can 
be fitted in with various art/font/text 
combinations. 


Error reporting is more than adequate and also 
well covered in the manual. There is also a 
useful section describing why and how to build 
boot files to load just the font and clip-art files 
that are needed for any one project. This is a 
nice touch since it will make life easier 
whenever it is appropriate to have the right 
files from many loaded automatically. 


CONCLUSIONS 

In practice then, this is software which can be 
approached and learnt very easily. It sports 
nearly all the features you would want ina 
package of its kind. It works quickly and is 
straightforward yet capable of sophisticated 
and exacting results. Not only could infants get 
to grips with computer “presentation” easily 
and painlessly, but computer literacy or 
secondary/FE art departments could make 
imaginative and stylish use of it. 


Given the features and the accessibility - thanks 
to sample files and documentation, for instance 
Printbox can be wholeheartedly recommended, 
and represents uncommonly good value for 


money. 
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Games Review (continued from page 23) 


to collect the various keys located around the 
screens. There are moving objects to avoid 
and puzzles to solve in achieving your task. 
The graphics and sound are both good, and 
key control is kept very simple. It is easy to 
play in the early stages 
and quickly becomes 
quite addictive. 


To sum up: this is one 
of the better collections 
Superior has released 
in this series. The two 
combat games are 
good, provided they 
are your type of game. 
The other two are 
probably of wider 
appeal, and definitely 
have that addictive feel. 


The other new release from Superior is The Last 
Ninja 2. This is the sequel to the original game, 
as featured on Play It Again Sam 12. The 
scenario has moved on in Ninja 2 from the Dark 


EDIKIT 

(BEEBUG Vol.8 Nos.7-9) 

The articles and programs which make up the 
EdiKit ROM refer to RAM bank 'X'. A RAM 
bank will normally be a number in the range 0 
to 7 (certainly on a Master), but may take other 
values (or letters) depending on make. Refer to 
the manufacturer's instructions, and use an 
appropriate value (i.e. that of a vacant RAM 
bank) in place of the ‘X’ where indicated in the 
programs. 


We apologise for the missing lines of text in last 
month's article in this series. However, all the 
relevant information also appeared elsewhere 
in the article. 


MINEFIELD (BEEBUG Vol.8 No.8) 
Owing to some last-minute amendments there 
are a few errors in the listing, for which we 
apologise. The following three lines should read: 
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Last Ninja 2 
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Ages in the Far East, to the 1990s in downtown 
New York. Here your adversaries are somewhat 
different, but are still just as difficult to 
overcome. There are various levels to work 
through in your quest, from the paths of 
Central Park alive 
with muggers, to the 
streets of Manhattan 
with its down and 
outs. 


"0510: 


“HOLDIRG- 


Graphics and game 
play in Ninja 2 are 
very similar to the 
original. If you 
enjoyed the first game 
then you will 
probably like this one, 
too. For myself, I 
found the game 
enjoyable but the key combinations, as in the 
original, sometimes left me in a state of some 
confusion with the inevitable loss of a life. 
Don’t let this put you off though. B 


ШІМ 


100 ОМ ERROR GOTO230 

2270 G$-&8C0:FOR А%-0 TO 9:READ A$:C$-0 
2300 NEXT:READ А5:ҒОК A%=0 TO 3:VDU 23,2 
24+A%:FOR B$-0 TO 7:VDU EVAL("&"+MID$ (AS, 
A$*16tB$*241,2)) : NEXT, : ENDPROC 


BEEBUG MAGAZINE DISC 

(Vol.8 No.8) 

The menu program may fail to work correctly 

on a model B or B+ because of insufficient 

memory. To correct this, load the menu program 

using LOAD"Menu" and amend line 70 to read: 
70 DIM P$ 3000 (not 5000) 

and resave using SAVE” Menu”. 


The Magscan file on this disc (Vol.8 No.8) was 
incorrectly formatted. A corrected version is 
included on this month's disc along with the 
Magscan file for this issue (Vol.8 No.9). 


Hopefully, this clears up any outstanding 
problems. 8 
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MORE MUGS 

I was glad to see an article on MUGs in the 
December issue (Vol.8 No.7). However, I think 
that the statement that “in all games there is a 
certain amount of violence” is incorrect and 
misleading. While it is true that some games such 
as Mirrorworld and Shades do encourage ‘fighting’, 
there is no fighting at all in The Zone. Indeed, the 
aim there is more to co-operate and be friendly 
with the mobiles and other players. Similarly, in 
Gods, there is very little fighting and much to be 
gained by making friends with the other players. 


I would prefer to emphasize the fun of role-playing 
in MUGs. Many players derive much enjoyment 
from assuming a ‘persona’ and acting out the new 
character in conversation and interaction with 
others in the game. There have been many famous 
and successful role-players in the games I have 
been associated with, whether they be men 
pretending to be women, people pretending to be 
animals, someone playing a ghost or whatever. 


The ‘full’ list of MUGs failed to mention 
The Zone (01-994 9119), Trask (soon to be on Prestel, 
or Shades (Prestel and 0342 810905). There are 
probably others. As we saw at Adventure 
Convention, there are plenty of new MUGs under 
development, with something to suit anyone 
adventurous. 

Sheila Thomas (Malwen & Isolde) 


ALTERNATIVE PLUS-OR-MINUS 

I would like to suggest an alternative for creating a 
Plus-or-Minus sign to that described by Sebastian 
Lazareno in BEEBUG Vol.8 No.6. This is based on a 
method I have employed for some time to cause 
my Epson compatible Panasonic KX-P1081 printer 
to match the “£ and ЯҒ keys on the keyboard. In the 
program, the data at lines 180 and 190 define these 
last two characters. I have chosen the backslash ^v 
(CHR$92) to redefine as a @ in both the computer 
and the printer (lines 160 and 200 respectively). 


100 MODE 4:VDU2 

110 FOR I$-1 TO 3:VDU1,27,1,121 

120 FOR J$-1 TO 10 

130 READ C$:VDU1, C$ 

140 VDU3 

150 NEXT J%,1% 

160 VDU23,92,8,8,127,8,8,0,127,0 

170 END 

200 DATA 35,40,0,254,0,40,0,254,0,40 
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210 DATA 96,0,2,16,14,122,130,16,130, 68 
220 DATA 92,0,0,34, 34, 34,250, 34, 34, 34 
George Stenning 


Thanks to Mr.Stenning for this alternative suggestion. 
However, despite the fact that the Panasonic printer 
referred to is often claimed to be Epson compatible, in the 
above case this is not true. We give below a version of the 
program which has been tested on an Epson FX80: 


100 VDU2, 1,27,1,58,1,0,1,0,1,0 

110 FOR I%=1 TO 3:VDU1, 27,1,38,1,0 

120 READ A%:VDU1,A%,1,A%,1,139 

130 FOR J&-1 TO 11:READ A%:VDU1,A%:NEXT 
140 NEXT 

150 VDU1, 27,1, 37, 1,1, 1, 0,1, 35,1, 96,1,92,1, 
131,10, 1,22: 173371. 0,170, d 

160 DATA35, 40,0,254,0,40,0,254,0,40,0,0 
170 DATA96,0,2,16,14,122,130, 16, 130, 68,0, 0 
180 DATA92,0,0,34,34,34,250,34,34,34,0,0 


The Epson requires more codes, as it needs to be 
informed beforehand when characters are to be 
downloaded, and the existing character definitions 
must be accessed in advance. In addition, character 
definitions require 11 bytes not 9. Line 150 prints-out 
the redefined characters. 


UNDERLINING THE POINT 
I am not over familiar with the operations of a 
computer. Recently when typing in some listings 
from the magazine, there has been a small line as 
shown in the following examples: 

PROCcontrol it 

BCC print it 
Can you please explain what this line means, and 
how I show or type it when entering the program. 

L.W.Bates 


The character referred to is the underline or 
underscore character which appears on the keyboard 
to the immediate left of the cursor keys and on the 
same key as the pound sign. It has no particular 
programming meaning, but is one of the very few 
characters acceptable in procedure and variable names 
in addition to the upper and lower case alphabet and 
the digits. It therefore makes a useful spacer for 
programmers wanting to use two (or more) word 
names as in the examples. E 


Another character which can cause similar problems, 
particularly to newcomers, is the vertical bar 
character (1), again to the immediate left of the cursor 
keys and on the same key as the backslash (\). 8 
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SuPER SQUEEZE 


PARTIAL RENUMBER A very useful utility which renumbers a 
selected block of lines. 


A program compressor. 


PROGRAM LISTER List any program direct from a file. 


RESEQUENCER Rearrange the lines in a Basic program - line 
numbering is automatically adjusted. 

SMART RENUMBER  Renumber a program so that procedures start 
ata particular line number. 


| TEXTLOAD AND TEXTSAVE Save and load a Basic program as text. 


MOVE Text Line Edge Üutl 5 Fore Fix Acel Abs х= 1287,8 y= 686.8 
File паме? SDOHE Scale: 1.88times Vector; 145.7 


e 


ша Ga = > | 
SHARE INVESTOR | 
A program which assists decision making when buying and selling 
stocks and shares. 


REAL TIME CLOCK | 
! A real time digital alarm clock displayed for all BBC micros. | 


| RUNNING FOUR TEMPERATURES | 
| A program for calibrating and plotting up to four temperatures. 


CROSSWORD EDITOR 


EJNFORCED CARBON CARBON CACC) 
EERIGW TEMPERATURE , REUSABLE SURFACE INSULATION (HRSI) 
к : | (АЛЫ TEMPERATURE , REUSABLE SURFACE INSULATION (1151) 
Design, edit and solve crosswords with this program. au НОМЕХ FELT (FRSI) REUSABLE SURFACE INSULATION 
AL OR GLASS 


LABEL PROCESSOR 
| Design, save and print labels at any size on an Epson compatible 


| printer. 

| MoNTHLY Desk DIARY 
| А month-to-view calendar which can be used on-screen or printed out. 
| 3D LANDSCAPES 

| Create computer-generated three dimensional landscapes. 
FOREIGN LANGUAGE TESTER 


MASTER 
full mouse and joystick control 
built-in printer dump 
speed improvement 
STEAMS image manipulator 
Keystrips for ASTAAD and STEAMS 
Comprehensive user guide 
Sample picture files 
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General Utilities Dise 


Ж Printer BUFFER * Ж 5рніте Eprror/ANIMATOR 

Ж MULTI-CHARACTER PRINTER DRIVER FOR VIEW 

Ж Море 7 Screen Ертов Ж Mutti-CoLumn PRINTING 
Ж Epson CHARACTER DEFINER Ж ROM CONTROLLER 
Ж ROM FLNG SYSTEM GENERATOR 

Ж BEEBUG MmiWmp t 

* Master series only. Í Requires sideways RAM. 


Applications I Wise 


Ж Business GRAPHICS Ж VIDEO CATALOGUER 

Ж WORLD Bv NIGHT AND Day Ж PHONE Book 

Ж РАСЕ DESIGNER Ж PERSONALISED LETTER-HEADS 

Ж MAPPING THE BRITISH 1912$ Ж SELEcTIVE BREEDING 
Ж APPOINTMENTS Diary Ж THE EARTH FROM SPACE 

Ж PERSONALISED ADDRESS Book 


Please rush me my Best of BEEBUG disc at the members price of £5.75 (non-members price £15) 
(ASTAAD disc - members price of £9.95, non-members price £19.95) 


Applications П Code 1411A (80 track DFS) ‘J Applications H Code 1412A ( 3.5" ADFS) Ц 
Basic Booster ROM Code 1403A Ц Basic Booster Disc Code 1402А LI 
ASTAAD Code1407A (80 track DFS) L] ^ ASTAAD Code1408A (3.5" ADFS) a 
General Utilities Disc Code 1405A ( 80 track DFS) Ц General Utilities Disc Code 1413A (3.5" ADFS) 5 
Applications I Disc Code 1404A (80 track DFS) Ц Applications I Disc Code 1409А (3.5" ADFS) a 


Please add p&p - 60p for the first item and 30p for every additional item. 


Phome your order now on (0727) 40505 
or send your cheque/ postal order to the address below. Please quote your name and membership number. 
When ordering by Access, Visa or Connect, please quote your card number and the expiry date. 


BEEBUG Ltd, 117 Hatfield Road, St Albans, Herts AL1 4JS. Telephone (0727) 40303. 


HINTS. HINTS, HINTS, HINTS, HINTS, 


HARD COPY CATALOGUE IN WORDWISE 

Tom Boyd 

The following short program creates a machine 
code utility which allows hard copy of any DFS 
disc catalogue to be produced while using 
Wordwise. Running the program saves the code 
with the name ‘PD’. Provided this is on the 
relevant disc(s) typing *PD will then print out a 
copy of the contents of the current DFS disc. 
The code is located at &900 (see lines 40 and 
190), but this could be changed. 


10 REM PRINT DIRECTORY 
20 REM Author T.K.Boyd 
307% 

40 MC-&900 

50 FOR C1-0 TO 3 STEP 3 
60 Р%-МС 

70 [OPT Cl 

80 LDA #2:JSR &FFEE 

90 LDX #MSG MOD 256 

100 LDY #MSG DIV 256 

110 JSR &FFF7 

120 LDA #3:JSR &FFEE 

130 RTS 

140 .MSG NOP 

150 ] 

160 NEXT 

170 % 
180 
190 
200 
210 
220 


PROTECTING VIEW FILES ON A MASTER 
David Holton 

Although encryption programs usually work 
by EORing a random byte value with each byte 
of a file, a much simpler way exists for 
preventing other users from seeing the contents 
of your files. 


AS="* ."+CHR$ (13) 

$ (Р%-1) =А$:1%=Р%+1ЕМ (A$) -&900 
C$-"*SA.PD 900 +"+STRS$~ (1%) 
OSCLI C$ 

END 


View expects to find a carriage return (&0D) at 
the end of a file, and if it doesn’t, it gives “NO 
TEXT" and won't change to the editing screen. 
Thus to lock a file, use *APPEND to put a byte 
other than &0D on the end. Type: 
*AP. «filename» 

and when the figure '1' appears, type any 
character(s) you like. I always use * (CHR$42), 
because 42 is the answer to life, the universe 
and everything! Do NOT press Return, but 
Escape. Now load the file and try to screen it. 
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There is no easy way to remove the unwanted 
character(s) when you want to unlock the file. 
So use *APPEND again, but press Return in 
response to the ‘T’, and then Escape in response 
to the following '2'. This places an &0D 
character at the end of the file. Load the file into 
View and edit out the unwanted characters. 


You can, of course, use *TYPE to see what's in a 
NO TEXT file, but it should keep the 
uninitiated out of your files. 


CONVERTING A NIBBLE TO A BYTE 

Kai Ng 

The following routine may be of interest to 
machine code programmers by providing an 
exceedingly compact method of converting a 
binary nibble into a hexadecimal ASCII 
character. 


-mshex LSR A:LSR A:LSR A:LSR A 
.lshex PHP:SED 
AND #50Е:СМР #&0A:ADC #&30 
PLP:RTS 


Thus JSR Ishex would apply conversion to the 
lower 4-bit nibble of the accumulator register, 
while JSR mshex would convert the upper 
nibble. 


QUICK CIRCLE 

John McFarlane 

Filled circles can be tedious and time- 
consuming to draw using sines. The following 
procedure uses Pythagoras’ theory which 
relates the squares of the lengths of the sides of 
a right-angle triangle. It will work in any 
graphics mode. X% and Y% are the co-ordinates 
of the centre, and R% the radius. Changing the 
value of Z from 1 alters the width of the circle 
to form an ellipse. 


100 MODE 4 

110 PROCcircle (100, 640,512, 2) 

120 END 

130: 

1000 DEF PROCcircle (R%, X%, Y%, Z) А 
1010 LOCAL A%,B%,S% D 
1020 S$-R$*R$ 

1030 FOR A$--R$ TO R$ STEP 4 

1040 B%=SQR (S%-A%*AS) *7 

1050 MOVE X%-B%+4, YS+A%:DRAW X$4B$,Y$4A$ 
1060 NEXT :ENDPROC B 
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Personal Ads 


BEEBUG members may advertise unwanted computer hardware and software through personal ads (including 
wants') in BEEBUG. These are completely free of charge but please keep your ad as short as . Although 
we will try to include all ads received, we reserve the right to edit or reject any if necessary. Any ads which cannot 
acc ed in one issue will be held over to the next, so please advise us if you do not wish us to do this. We 
will accept adverts for software, but prospective purchasers should ensure that they always receive original 
copies including documentation to avoid any abuse of this facility. 


We also accept members' Business Ads at the rate of 30p per word (inclusive of VAT) and these will be featured | 
separately. Please send us all ads (personal and business) to MEMBERS' ADS, BEEBUG, 117 Hatfield Road, 
St. Albans, Herts ALI 4JS. The normal сору date for receipt of all ads will be the 15th of each month. 


WANTED: Would like some 
assistance with Printwise 40T DFS 
using preferably Interword. FOR 
SALE: Watford sideways ROM/RAM 


answer/dial, BBC Micro cable, 
Comms software, manuals. 
Unrequired gift, cost £179, sell £149. 
Tel. (0952) 581407. 


Aries B32 shadow RAM board £40, 
Aries B12 ROM board with 2 x 16k | 
SWR £25, Interword (as new) £25, 
PMS Multifont NTQ £20, extra fonts 


board with battery backed 
16k sideways RAM (not 
fitted) and 32k sideways 
RAM £25. Tel. (0525) 715013. 


Master Turbo 128, 
Microvitec monitor DP35, 
disc drives and single 3.5" 
disc drive, 40 3.5" discs 90 
5.25" discs, disc boxes, 
mouse, Wordwise plus, 
Spellmaster, Intersheet, 
System Delta Plus, ROM 
manager, Pagemaker, ROM 
manager, View, Viewsheet, 
Watford Utilities, Gemini 
Mailist. Any offers? £650 
complete. Tel. (0727) 47601. 


BBC model B, Acorn DFS, 
ATPL Sidewise ROM board, 
Watford Elec. 32k Shadow 
RAM board, Microvitec Cub 
653 monitor, Acorn single 


INVOICING & ACCOUNTS 


New: V3 of The Account Book now available. 
Comprehensive small business accounts to trial 
balance. VAT approved. Absolutely the easiest 

program to use, with neat final books and hundreds 
of reports. No entry limits. "The Account Book gets 
first prize for both price and performance"- 
comparison in Micro User-July "89. A true user - 
friendly program. It succeeds admirably "-Beebug - 
Oct '88. And that was Version 2, УЗ has many new | 
features. £27.95. 

New: V2 The Invoice Program. Database, Invoices 
(unpaid and paid), Statements (individual and 
automatic), Stock presets, Debtor lists, Linking with 
The Account Book and loads more £27.95. 
You will not be disapointed!!-See review BEEBUG 


for NTQ (2 discs) £8, Cumana 
CS100 disc drive with PSU 
£40, Viglen console for BBC B 
with heavy duty PSU for two 
disc drives £25, all as new 
and complete with 
instructions/manuals, 
Masterfile II: Qucikcalc: 
Imogen: Fortress: Ravenskull: 
Speech! all BBC 40 track disc 
originals with manuals £4 
each. Elite - BBC 40T disc, as 
new with manuals £8, 
Graphic Adventure Creator, 
as new with manuals £10. Tel. 
(0325) 463873 eves. 


BBC software, Watford 
ROMs: ROMspell, ROM 
Manager, - BEEBfont, 
TransfeROM @ £10 each. 
BEEBUG discs: Qucikcalc, 
Design @ £8 each, UIM game 


disc drive, pair of Voltmace 
Delta B joysticks, Interword, 
Intersheet and Interbase 
on ROM, Elite on disc, about 
30 floppy discs. Full 
documentation etc. for the 
software £330. Tel. (0325) 
333333. 


Sinclair ZX81 computer, 16k 
RAM, mains adaptor, 
handbook, offers please. 
Wordwise ROM £7, BEEBUG 
Toolkit ROM £7, Dr Who & 
Mines of Terror ROM & disc £7, 
Basicode 2+ & programs £7, BEEBUG 
Spellcheck disc £5, BEEBUG Masterfile 
disc £5, Superior Software Speech! £7, 
Cheetah Speech Synthesis module £7, 
all with handbooks. Tel. (0262) 677555 
(work) (0377) 42037 (home). 


Logistix, SoliCAD, Graphic Writer, 
System Delta Plus, Conqueror game. 
Offers? Tel. 01-540 8461. 


Microlink Multi-speed Modem 
(V21/22/23), 32 number store, auto- 


60 


Dec'89. 


Special Offer: £49.95 if purchased together. 


Apricote Studios 
2 Ригів Bridge Farm 
Manea 


Cambs 
PE15 OND 


Tel: 035 478 432 for information, help or to order. 


BEEBUG magazines, complete from 
first issue to current with indexes, vols 
1 to 6 in binders, remainder loose, 
Offers? Tel. (044282) 4543. 


BBC B v.g.c, cables, £250 of quality 
software,educational/adventure/ 
entertainment, tape recorder plus 
cables, nearly new Voltmace Delta 3b 
twin joysticks manuals, books + 
BEEBUG magazines 1985-1990 all 
original. Worth over £700. £250 o.n.o. 
Tel. (0473) 623448. 


(brand new) £14, Machine 
Code Tutor (2xcass) £4, case 
w/leads for 5.25" floppy 
drive (brand new) £10. Tel. 
(0923) 245537. 


Panasonic KXP1081 printer 
£85, Tandy daisy wheel 
printer with tractor feed £225, 
Acorn Z80 second processor 
£120, Torch Z80 second 
processor £40, AMX Stop 
Press with mouse for Master 
£35, Master manuals 1&2 £6 
each, ROM holders for Master, various 
£4 each, Taxan Green screen monitor 
£30, Watford Apollo Modem with 
software £50, Datachart modem 1223 
with software £30. Also many other 
BBC bits and pieces inc. books. Tel. 
(0223) 872178. 


Prism modem & ROM £25, BBC 
second processor £20. Tel. 01-444 0915. 


Cumana dual 40/80 disc drive £150. 
Tel. (0223) 313385. 
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Archimedes A440 without monitor, 
RISC OS, 4Mb RAM 20Mb hard disc, 
software £1,550 or reasonable offer. 
CP80 printer £50. Tel. (0272) 736237. 


Torch computer (model CF 240M) 
with Hi-Res colour monitor and dual 
720k 5.25” DS DD built in, separate 
keyboard. Contains complete BBC 
circuit board with DFS & 16K 
sideways RAM in addition to native 
Z80 based CP/M board. Built in 
COMMS hardware. With manuals and 
Torch software including Perfect 
Writer, Perfect Filer, Perfect Calc, 
Wordstar £350 plus postage or collect. 
Tel. (0730) 67486 (Hants) eves or 
weekends. 


M128 with 5.25” dual drive (self 
powered) and mono monitor, hardly 
used £450. Tel. (0707) 269245. 


Monitor: Microvitec 1431 TTL RGB 
input, metal case as new £149. Tel. 
(0943) 464824. 


WANTED: Instant Mini Office II on 
ROM. Tel. (0929) 424175. 


Inter-Word ROM іп original 
packaging, mint condition, never used 
£30, Also 25+ BBC games on cassette 
inc. Citadel, Castle Quest, Moon 
Cresta, whole lot £35. Tel. 01-229 5449. 


BBC В issue 7, control Data DS 40/80 
drive, manual and leads £270 o.n.o. 
Tel. 061-766 6007. 


WANTED: Pens for an Epson H1-80 
“drawing machine”, or name/address 
of a supplier. Tel. (0903) 40531 eves. 


M128 with View, Philips monitor, 
Viglen Teac 5.25” dual DD, switchable 
40/80 with integral power supply, all 
hardly used. Also CC Mega 3 ROM in 
Care Master Quad ROM cartridge, 
unused. Also, Pace Linnett 1200 
modem and Commstar II 
communications software and PSU, 
unused. All complete with manuals 
and cables. Tel. (0635) 47082. 


Master 512 ver 2.1 Gem software + 
mouse, Dabs manual + disc, Acorn 
D/Rec. joystick, Plinth mounted 2X 
5.25” DD/DS 40/80 SW D/drives, 
Smart cartridge, Morley Teletext 
adaptor + design 7, IMb MOS ROM, 
BEEBUG CAD disc, BEEBUG mags & 
binders, 5.25” DS DD D/drive aux 
p/s, tape and disc games, Elite, Exile, 
Thor etc. Master/Plinth, manuals, 
leads, dust cover £650 inc. P&P. Tel. 
(0444) 811716. 


Multiprom EPROM programmer, for 
8k, 16k, 32k, 64k, 128k, as new £27, 
Dumpout 3 ROM £17, Viewspell ROM 
£17, ADI ROM £12, all with manuals 
and P&P included. WANTED: Master 
system ROM, Morley AA board, 
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Master circuit board or Master for 
spares. Tel. 051-647 5367. 


BBC B with DFS, 2 drives, ROM board 
stuffed with goodies, colour monitor, 
printer, modem, software inc. games, 
BEEBUG from issue 1 and more £550 
the lot, might split. Tel. 01-428 2841 
eves and w/e. 


Acorn 6502 second processor with 
DNFS and Hi-Basic ROMs, manual 
and original packing £65, Sleuth, 
Printmaster, Source Manager and 
Prestel ROMs £5 each, 50 BBC games 
cassettes £70, Freefall, Elite, Revs etc. 
on discs £4 each. Tel. (0782) 314053 
eves and w/e. 


Acorn Electron with Slogger ROM box 
(+ utility ROMs, eg. Addcom, Elkman 
T2P3 ), Plus 1 (+ View, Viewsheet 
cartridges), Plus 3 (+ over 20 discs 
with various programs), two good 
joysticks, various commercial software 
(Pascal, Repton 3, etc.) all equipment 
in excellent condition and fully 
documented £180 o.n.o. Tel. (0734) 
751875 after 5.30pm. 


BBC B OS 1.2 with over 200 games, 
tape recorder and leads, lots of 
magazines and 3 vols of BEEBUG. 
Bargin at £210. Tel. (0932) 242960 7-9pm. 


Archimedes 310 entry system, RISC 
OS, Acorn 2-slot back plane, recently 
overhauled, original ing, manuals 
and discs £600. Tel. (0206) 841119. 


Acorn Master cartridges £7 each, Care 
Quad cartridges £10 each, Original 
double Acorn joysticks £13, ACP 
Toolkit ROM £22, New Master ref. 
manuals 1&2 £10 each, New BBC 
Advanced User Guide £10, Sharewatch 
ROM £30. Tel. 01-989 2666. 


Master 128, dual 40/80T drives in 
Viglen “PC” console, Microvitec 
monitor, AMX mouse, joystick, EPROM 
programmer and eraser, Overview, 
Elite, Citadel £650. Juki 6100 daisywheel 
printer £200. Tel. 01-977 9629. 


Cannon laser printer cartridge slightly 
used, no longer required, any 
reasonable offer. Tel. (0299) 896845. 


M128 monochrome monitor, twin 
40/80 DD, Panasonic printer, 
Interseries ROMs, all hand books £550 
о.п.о. Tel. (0276) 22031. 


Redboxes: a number of “Red Boxes”, 
together with manuals, no longer 
required, any offers? 1 red leader, 2 
red one, and 4 red two are available. 
Will sell as one lot. Tel. 01-223 6051 
eves. 


Morley 2Mb RAM disc plus Vu-Fax 
software, instant loading and saving 
brilliant! cost £400 accept £200 o.n.o. 


must sell, also over 50 software 
packages; games, music, utilities, for 
details Tel. 091-529 4788. 


M128 complete word processing 
system, Mini Office II, Mini Office II 
Utilities Disc + spell checker £20, The 
Last Ninja (karate game) £5, (all on 
disc), Bullseye quiz game on cassette 
£2, Master 512 shareware vol. 1 
unused £20, 1987 back issues of Micro 
User and Acorn User £10. Tel. (0326) 
240734 after 6pm. 


BEEBUG’s Basic debugger Sleuth 
version 1.05a as new £7 о.п.о. inc. p&p. 
Tel. (0962) 61102 after 7pm and w/e. 


Seikosha GP250X printer currently in 
use, offers? Tel. (0932) 783387. 


Shinwa CP80 printer £80 plus 
postageor collect (Exmouth). Tel. 
(0395) 263638. 


Defected to IBM, so have Master 512 
surplus to requirements, no monitor 
or disc drives, but includes software, 
books, etc. for both M128 and M512 
£330 o.n.o. for quick sale. Complete set 
BEEBUG magazines in binders, FREE! 
you pay postage. WANTED: User 
manual for IBM Proprinter Model 
4201. Tel. (0978) 759732 eves/wkends. 


WANTED: M128 Compact with or 
without monitor, in good condition. 
Tel. (0753) 651990. 


Epson MX-80 FT printer, hardly used 
£85 o.n.o. Trackerball with drawing 
package £15, Grafpad MK2 with 
drawing software £45 o.n.o. Chiptester 
digital integrated circuit tester, fits 
BBCB or Master complete with 
software and handbook £60 o.n.o. also, 
not computerware but useful Roneo 
electric duplicator with spares, make 
me an offer! Tel. (0635) 297701. 


M128, Turbo, 512 co-processor, dual 
40/80 disc drive, Overview, View 
Professional, Master ROM, Reference 
manuals £670. Tel. (0709) 375135. 


BBC B with OS.2 includes ADFS, 
viewsheet viewstore, diagram II, 
teletext, Advanced disc doctor ROMs 
etc. 2x40/80 disc drives plus teletext 
adaptor, co pro adaptor + DOS + Gem, 
mouse, trackerball and joystick, over 
200 discs and cassettes including 
games, printmaster, wordwise, view 
word processing packages, AMX etc. 
books and magazines, offered 
complete at £950. Tel. (0259) 216555 
eves. 


Wordwise + ROM complete with two 
manuals and tutor tape £25, Intersheet 
(32K ROM) complete with two 
manuals and reference card £25. Tel. 
01-348 1500 after 7pm and weekends. 
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є16.90 4 year (10 issues) UK, ВЕРО, Cn! £25.00 
£24.00 Rest of Europe & Eire £36.00 
£29.00 Middle East £43.00 
£31.00 Americas & Africa £46.00 
£34.00 Elsewhere £51.00 


Volume Magazine Tap 5"Disc 3.5" DIS АЈ ovest wel are sent 
4 0 c1.00 airmail. e wi accept 
2 £0.50 £1.00 official UK orders for 
: Е р subscriptio c 
3 £0.70 £1.50 £3.50 ` ues, b note that 
4 £0.90 £2.00 £4.0 - there will be handling 
5 £1.20 $2.50 £4.5 ¢4.50 e f under £ 
6 £1.30 £3.00 £4.7 T which require an invoice 
7 89 e350 £475 лү mE that t VAT in 
magazines. 
Destination First Second 
Please add the cost of p&p Xem көт 
when ordering individual items. UK, ВЕРО + СМ 60р 30р 
See table opposite. Europe + Ei £g 50р 
Elsewhere £2 £1 
Hatfield k Albans, Hert: 114 
Tel Albans 727) 4 ; AX: (0727) 60263 
Manned Mon-Fri 9am-5pm 
(24 Answerph Pm nec Access! VISA orders and subscriptions) 
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MASTER ROM 


The Beebug Master ROM is a powerful 32K ROM 
developed to enhance the ADFS, sideways RAM, and 
real-time features of the Master 128 and Master Compact. 


Features include: A comprehensive Disc Front End, Multi- 
Option Panel, Diary with Calendar and Alarm. Plus a 
Printer Buffer using sideways RAM, a RAM Disc, 
and a host of invaluable disc commands. 


Disc Menu 

Typing *MENU takes you straight to a full feature disc 

menu and front panel. This gives a readout of current 
status and displays all the items in the current 

directory. Just select the file or directory of your 

choice to be loaded and run. The menu also 

allows files to be marked for subsequent 

copying, renaming or deleting 


Other Features 
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Disc Commands 


The Master ROM boasts a wealth of 
new disc commands to help the user 
exploit the power of the ADFS with its 
nested directory structure. Commands 
include: *BACKUP *WIPE *USED 
*CATALL *FIND *FORMAT *BACKUP 
*MERGE *DIRCOPY *FCOPY *GOTO 


The Command Driven 
Communications ROM 


Unlike much communications software, this 16K 
ROM is command driven and has a very powerful 
extended command set. In addition, for ease of use, all 
major features are available at the touch of a function 
key. Because the ROM may be command driven it is 
exceptionally easy to link commands together in Basic 
to meet your own individual needs. 


П Text Terminal 

Use this terminal to access 
Telecom Gold and thousands 
of bulletin boards worldwide. 
XMODEM file transfer allows 
you to send files to a friend for 
the cost of a phone call. 


О Telephone Directory 
Set up the name, number and 
modem configuration of your 
favourite bulletin boards for 
easy recall at a later date. No 
need to remember telephone 
numbers any more, just type: 
*CALL PRESTEL 
for example, and everything 
will be done automatically for 
you - even sign-on strings and 
passwords are entered. 


С Control Panel - displays all the Master's preset options as well as all 
available ROMs. The cursor keys are used to move around the panel, 
and to adjust the state of any items. Current status settings may be 
saved away to disc for subsequent reloading at any time. 
О Printer Buffer - the Master ROM boasts a 16K-64K full 
feature printer buffer. This uses sideways RAM in 
selectable banks, allowing you to print long documents 
whilst using the computer for another task. 

Q Diary & Alarm - the Master ROM allows you to 
keep a disc-based diary and alarm with 
reminders for any date in the year. 

Q RAM Disc - a simple RAM disc of up to 
64K in length. Commands are provided 
to save programs and memory to the 
RAM disc. 
Q Viewdata Terminal 
A full feature Viewdata 
Terminal giving access to 
thousands of pages in Prestel 
and other Viewdata services. 


Members Price 


£29.25 


Stock Code: 
0087C 


Q Viewdata Editor 

A complete teletext editor, with 
a full range of editing 
commands, on-screen help, and 
a pixel editor. 


П Modem Compatibility 

The standard version of 
Command is suitable for the 
Magic Modem and similar 
models (Demon, Apollo etc). 
The Hayes version is suitable for 
Hayes and other intelligent 
modems. 


Members Price 


£29.25 


Stock Codes: 
Command 0084C 
Hayes Command 0073C 


